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in Engineering Science 
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A numerical program was developed to compute transient compressible 
and incompressible laminar flows in two dimensions with multicomponent 
mixing and chemical reaction. The algorithm used the Los Alamos Scien- 
tific Laboratory ICE (Implicit Continuous-Fluid Eulerian) method as its 
base. The program can compute both high and low speed compressible 
flows. 

Point by point corrections were included for the errors caused by 
truncating the Taylor series during finite differencing. The removal 
of these numerical diffusion errors stabilized computations which pre- 
viously had diverged catastrophically. 

Multicomponent mixing and chemical reaction were incorporated using 
an implicit scheme and breaking the time increment into smaller steps. 
The mixing was computed over a small time step and was followed by reac- 
tion computations over a series of even smaller time steps. This effec- 
tively coupled the species equations and gave stable results. 

The applicability of the computer program was tested with a variety 
of flow problems in tubes. These included flow startup in an infinite 
tube, shock tube flow, cyclical pulsations on a mean flow, uniform 
entry, coaxial entry into long and short tubes, flow of a center jet en- 
tering a sudden expansion, and steady parabolic coaxial entry with mix- 
ing and chemical reaction of trace species. The program was not proven 
for problems with strongly coupled flow and reaction, A variety of 
computer- dr awn graphical output was used to display the results. 

The numerical program incorporating the stabilization techniques 
was quite successful in treating both old and new problems. Detailed 
calculations of coaxial flow very close to the entry plane were possi- 
ble. The program treated complex flows such as the formation and down- 
stream growth of a recirculation cell. An implicit solution of the 
species equation predicted mixing and reaction rates which compared 
favorably with the literature. A recommendation for expanding the pro- 
gram capability to include strongly coupled flow and reaction was made. 

A computer program listing was furnished. 
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ABSTRACT 


A numerical program was developed to compute transient compres- 
sible and incompressible laminar flows in two dimensions with multi- 
component mixing and chemical reaction. The algorithm used the Los 
Alamos Scientific Laboratory ICE (Implicit Continuous-Fluid Eulerian) 

I 

method as its base. The program can compute both high and low speed 
compressible flows. 

Point by point corrections were included for the errors caused by 
truncating the Taylor series during finite differencing. The removal 
of these numerical diffusion errors stabilized computations which pre- 
viously had diverged catastrophically. 

Multicomponent mixing and chemical reaction were incorporated us- 
ing an implicit scheme and breaking the time increment into smaller 
steps. The mixing was computed over a small time step and was followed 
by reaction computations over a series of even smaller time steps. 

This effectively coupled the species equations and gave stable results. 

The applicability of the computer program was tested with a var- 
iety of flow problems in tubes. These included flow startup in an in- 
finite tube, shock tube flow, cyclical pulsations on a mean flow, uni- 
form entry, coaxial entry into long and short tubes, flow of a center 
jet entering a sudden expansion, and steady parabolic coaxial entry 
with mixing and chemical reaction of trace species. The program was 
not proven for problems with strongly coupled flow and reaction. A 
variety of computer-drawn graphical output was used to display the 
results. 


xvii 



The numerical program incorporating the stabilization techniques 
was quite successful in treating both old and new problems. Detailed 
calculations of coaxial flow very close to the entry plane were pos- 
sible. The program treated complex flows such as the formation and 
downstream growth of a recirculation cell. An implicit solution of 
the species equation predicted mixing and reaction rates which compared 
favorably with the literature, A recommendation for expanding the pro- 
gram capability to include strongly coupled flow and reaction was made. 
A computer program listing was furnished. 
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Chapter 1 


INTRODUCTION 

The use of numerical methods to solve the partial differential 
equations of fluid flow is a field of great current interest. Advances 
in numerical techniques plus new generations of extremely fast digital 
computers permit solutions of complex flow problems „ These solutions 
may be run as computer experiments, allowing the quantification of var- 
iables that would be difficult to measure in a physical experiment. 

The knowledge gained from such computer experiments can be used by sci- 
entists to advance the frontiers of fluids research. At the same time 
the expanded capability in solving the flow equations permits treatment 
of more complex and hence more realistic problems. Thus numerical 
fluid dynamics also has increasing value to the engineer. 

Early numerical solutions dealt with steady laminar incompressible 
flows, steady compressible flows at supersonic speeds, and transient 
one-dimensional flows associated with shock waves. Many of these prob- 
lems were selected because analytical solutions were available for com- 
parison. 

Then problems were run with more complex boundary conditions. An 
interest grew in obtaining transient solutions and three dimensional 
steady solutions. The current generation of very fast, large storage 
machines can treat some unsteady problems in three dimensions with 
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reasonable computation times. However, finding a means to display such 
solutions is a formidable problem in itself » 

The mathematical problems of stability and convergence have also 
increased with problem complexity. The nonlinear nature of the differ- 
ential equations precludes a rigorous analysis to charalcterize the va- 
lidity of the numerical solution. Thus the researcher is often forced 
to identify a stable, "reasonable-looking" solution as a valid solu- 
tion o This is not always true, but in the absence of rigorous proofs, 
it is a reasonable assumption. 

Detailed computations of turbulent flows are presently unattain- 
able, Turbulent flows consist of a myriad of transient, three dimen- 
sional fluctuations superimposed on a mean flow. Ignoring the trans- 
ient nature of the fluctuations and reducing the dimensionality from 
three to two are already severe approximations to the actual physics 
of the flows. The turbulent behavior is dependent upon small scale 
motions. The extremely small mesh size, hence large numbers of grid 
points, required to resolve the small-scale turbulent motion demands 
enormous speed and storage capabilities. 

Many flows of interest to engineers are in the turbulent region and 
these practical problems require solution. The need has been met by us- 
ing semi-empirical models and curve fits of data to evaluate the turbu- 

f 

lent coefficients,' This process usually includes an order of magnitude 
i 

analysis to cast out some stress components. A minimum grid size is 
chosen consistent with computer capabilities , and the effects of smaller 
scale flows are expressed as eddy viscosities. The method often works 
well for steady state problems where the model is valid and within a 



parametric range embraced by the data. Extrapolation of such analyses 
to a wider operating range is often unsatisfactory. Transient problems 
involving the generation, propagation, and dispersion of turbulent 
quantities have been formulated, but little has been done in solving 
this type of problem, again due to formidable computational problems. 

Solutions of the rigorous conservation equations are constrained 
entirely to the laminar region. A major current goal in numerical 
fluid dynamics is the solution of the complete laminar conservation 
equations for various sets of initial and boundary conditions. In add- 
ition, combustion and pollution problems have stimulated interest in 
reacting flows. And in some cases, such as acceleration of gaseous 
flows to high speeds or pulsatile flows, simplifying assumptions re- 
garding compressibility can not be made. Gas phase reactions can cause 
energy release that couples with the fluid dynamics through compression 
effects. Hence a general numerical program to deal with these types of 
problems is of interest and has been pursued in this work. 

A major problem in dealing with transient flows at all speeds is 
that the full conservation equations can exhibit the behavior of the 
three classes of partial differential equations, depending on the nature 
of the physical problem being described. Transient slow flows which are 
appreciably influenced by viscosity are parabolic in nature. Steady 
subsonic flows are described by elliptic equations. Subsonic flows with 
wave propagation and all supersonic flows are hyperbolic in nature. The 
difference equations which represent the differential equations gener- 
ally require a method of solution that depends upon the class of equa- 
tion. Thus a scheme that successfully solves hyperbolic equations may 



fail in the elliptic region. Mixed flows of variable nature are diffi- 
cult to solve numerically. 

The conservation equations governing the flow of multi-specie re- 
acting fluids are given below in tensor form. Gravity forces are neg- 
j i 

lected, is the metric tensor, and the comma (,) denotes covariant 

differentiation. Symbols are defined in the nomenclature. 


It" " " 

(1.0-1) 

Momentum: = - (pv^vb , - . 

OL ,1 jX 

(1^0-2) 

Total Energy: = - (pv^E) . - (Pv^) _ q^ . _ 

("^ g .V ) 
^nj ,m 


(1.0-3) 

Mass of Kth Specie: = - (n^^)^ + (r^) 

(1.0-4) 
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The above equations all contain an accumulation term on the left hand 
side which is equated to various fluxes on the right hand side. The 
fluxes are convective or diffusive or arise from the action of pressure 
forces and viscous stresses. In the species equation a source term 
(tj^) is included to take chemical reaction into account. 

For a compressible Newtonian fluid the viscous stress tensor is, 


ji 2 jim, mini, 

- t j V + pg (v + v ) 

^ sin m,n n,m 

which may be substituted into the momentum and energy equations. These 
equations comprise the set . to be solved for various initial and bound- 
ary conditions. 

This thesis presents numerical studies of transient, two dimen- 
sional, confined flows with no constraints on fluid compressibility or 
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flow speed. The Isds.ic algorithm was derived at the Los Alamos Scien- 
tific Laboratory (’LASl}. The diffusion and reaction of species is in- 
cluded herein to thfe range of application of the computer code. 

The purposes of this thesis ares 

(1) To develop the partial differential component equations 
through finite diffeif^evtcing and to formulate the algorithm; 

(2) To derive and demonstrate a nonlinear truncation error correc- 
tion to stabilize s^otions ; 

(3) To demonstrate the wide applicability of the algorithm by com- 
paring numerical solutions with other analytical and numerical solutions 
for the following problems: 

(a) Startup of incompressible flow in an infinite tube; 

(b) Propagation of shock phenomena after removing a diaphram 
separating high and low pressure gases; 

(c) Development of incompressible flow from rest when the axial 
pressure gradient has a mean component and an oscillatory per- 
turbed componeni: ; 

(d) Development of the incompressible boundary layer in the en- 
trance of a tube subjected to a uniform input flow; 

(e) Calculation of steady-state flows with trace (decoupled) chem- 
ical reactions for fully developed coaxial entryo 

(4) To present transient and steady state solutions of compress- 
ible and incompressible slow speed tube flows with uniform coaxial 


entry ; 



(5) To present transient and steady-state solutions of the incom- 
pressible and compressible flow of a slow speed center jet into a con- 
fined tube of larger diameter; 

(6) To furnish a listing of a computer program for future experi- 
mentation with flows strongly coupled with chemical reaction. 



Chapter 2 


LITERATURE BACKGROUND AND CONCEPTS 
A comprehensive review of publications on computational fluid 
mechanics would be a major undertaking and inappropriate to the intent 
of this thesis. This section will discuss some papers on concepts of 
stability and accuracy of difference schemes plus methods of solving 
compressible flows which can extend into the subsonic region. Some of 
the major techniques developed at the Los Alamos Scientific Laboratory 
to treat compressible and incompressible flows will be discussed, lead- 
ing to the ICE technique for flows at all speeds. 

All attempts to produce computer solutions which describe fluid 
flows are faced with the mathematical problems of existence, unique- 
ness, convergence, stability and accuracy of the solutions. The prac- 
tical application of the numerical computation is to describe a physi- 
cal problem. In the case of fluid flows, the use of the full conser- 
vation equations gives the greatest confidence that the physics of the 
problem are adequately represented.. Since the conservation equations 
are a set of nonlinear partial differential equations, the mathemati- 
cal problems mentioned above have not yet been resolved. 

Roache (45) has considered this problem and concluded that physi- 
cal intuition, heuristic reasoning, and numerical experimentation com- 
prise a reasonable alternate approach. Since a goal of this work is 
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to develop and test a program applicable to physical problems of inter- 
est to engineers, the same philosophy is adopted here. 

A, Concepts of Stability and Accuracy 

The paper of Courant, Friedrichs, and Lewy (12) provided the basis 
for constructing stable difference schemes. Elliptic, parabolic, and 
hyperbolic equations were treated. According to Lax (37), the authors 
were primarily interested in proving the existence of solutions to dif- 
ferential equations by taking solutions of finite difference equations 
to the limit of smallness. Their analysis of hyperbolic equations de- 
fined a "domain of dependence," a region of information on space and 
time coordinates which must be considered to define the value of a var- 
i^ble at a point. They showed that the domain of dependence of the 
difference equation must include the domain of dependence of the dif- 
ferential equation. Otherwise numerical instability will occur. In 
simpler terms, instability will arise if the grid spacing AZ is so 
large that information can not propagate from one point to the next in 
the given time increment At. 

The above concept is expressed in the Courant number. The speed 
of propagation for compressible problems is the speed of sound, a. 

Then the Courant number restricts 

At 

® &z 

if stability is to be possible. In the case of incompressible flows, 
the formulation of the equations suppresses the sonic signals. The 
parameter propagating the information is the local .fluid velocity, U. 


Then 



is the stability criterion. 

The presence of shocks in flows presents computational problems 
using the inviscid equations because the primary variables are discon- 
tinuous over the shock front. This requires a set of internal bound- 
ary conditions obtained from the Rankine - Hugoniot equations to con- 
nect the variables over the shock front. The shock surface is usually 
positioned between grid points, and its exact position can be found 
only by a trial and error process. Von Neumann and Richtmeyer (51) 
introduced the concept of adding an artificial dissipation term to the 
equations. This caused the shock front to smear over a few grid 
points, eliminating the discontinuous front and the associated compu- 
tational headaches. Shock strength and position automatically arose 
from the fluid flow calculations. A properly defined dissipative func- 
tion produces negligible effects on the shock velocity and strength and 
no effects outside of the shock region. A real shock is slightly 
smeared due to heat conduction and viscosity effects. If shock spatial 
details are the primary goal of the computational exercise, the artifi- 
cial dissipation term would interfere. For most shocked flows this is 

not of interest. 

Von Neumann and Richtmeyer introduced the dissipative function, q, 
as an additive term on pressure in the momentum and energy equations. 
For unsteady one-dimensional flow, the equations were 
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IE 

at 


av 

(P + q) 


(2-4) 


The dissipation term chosen was 


q = - 


(KAZ) ^ 

V az 


au 


az 


(2-5) 


This functional form produced a shock wave of thickness 0(AZ) , satis 
fied the Hugoniot relationships, and vanished away from the shocked 


region. 

The theory of the stability of linear difference equations with 
constant coefficients was developed by Von Neumann at Los Alamos during 
World War II. The first detailed explanation of the method was pub- 
lished in the unclassified literature by O'Brien et al. (40). The 
authors illustrated Von Neumann's method of substituting an exponential 
series solution into the difference equation and examining the result 
for regions of time and space grid sizes which assured that the expon- 
ential terms would not grow with time. This theory will be discussed 
in more detail in the later section on stability analysis. 

Cheng (11) examined computational stability, accuracy, and consis- 
tency of difference formulations. His discussion was based on Lax's 
equivalence theorem which states that, "In the limit At -i- 0 and 
AZ 0 , the solution of the difference formulation converges to the 
solution of the differential problem if, and only if; (1) the differen- 
tial problem is well-posed, (2) the difference and differential formu- 
lations are consistent, and (3) the computation is stable." Cheng 
analyzed the aspect of consistency in terms of the truncation errors 
inherent in the particular finite difference form. The truncation 



error is a measure of disagreement between the partial differential 
equation and its finite difference equation » Cheng recognized the 
truncation error terms as dissipative, dispersive, and of higher order, 
then analyzed stability in a heuristic manner, looking at the sign of 
the dissipative term to determine whether a difference scheme was 
stable or unstable. A similar analysis by Hirt (29) is used in this 
thesis and is discussed later. Cheng calls the dissipative terra a 
**pseudo-diffusivity . " It is not Von Neumann’s artificial viscosity 
which is an added term. It is implicitly contained in the finite dif- 
ference formulation. 

After an analysis of accuracy, Cheng concluded that viscosity con- 
trolled problems should have finite differences of second order accur- 
acy which reduce the pseudo-dif fusivity. Thus the true viscous effects 
would not be masked by numerical error. He also concluded that steady- 
state or slow transient solutions to the Navier-Stokes equations could 
be accurately computed. However, he showed that the second-order ac- 
curate Lax Wendroff method gave appreciable amplitude and phase errors 
when applied to a rapidly oscillating problem with known analytical sol- 
ution. This specific example indicated that caution is required when 
solving rapidly changing time-dependent problems. 

A more detailed linear analysis of amplitude and phase errors was 
conducted by Fromm (20). He examined the unsteady vortlcity formulation 
of the incompressible flow equations by substituting a Fourier component 
solution and examining the stability of the high frequency components. 

He concluded that first order accurate formulations had appreciable 
amplitude and phase errors in the smaller modes, and that even second 



order formulations had significant phase lag at the smallest mode, 2AZ. 
This caused a dispersion and appearance of point-to-point waves. Fromm 
proposed a fourth order scheme which showed superior error characteris- 
tics. He also proposed using a linear combination of two schemes with 
opposite phase error to cancel the error. This promises to be a fruit- 
ful area for future research. 

B. Compressible FIox<r Schemes 

Some of the schemes currently in use to treat transient compres- 
sible flows are briefly discussed in this section. Brailovskaya (5) 
presented an explicit differencing scheme for the laminar unsteady com- 
pressible Wavier— Stokes equations which was first order accurate in 
time and second order accurate in the space variables. The scheme was 
three level. Intermediate values for mass, momentum, and energy fluxes 
were calculated explicitly, then advanced time values were computed us- 
ing the intermediate values in the flux and pressure terms while reus- 
ing the old dissipation terms. A computation was shown for a cavity 
problem where a wall impulsively started moving across a square cavity, 
setting up a vortex within the cavity. Little detail was shown, but a 
steady-state streamline plot at a Reynolds number of 500 looked similar 
to other solutions of this problem. The lowest Mach number of the mov- 
ing wall was 1/3. It was not stated whether the fluid was considered 
to be at rest on the walls. 

Kurzrock and Mates (35) presented a method which they claimed had 
storage and computation speed advantages over Brailoyskaia’ s method. 

The continuity equation was written implicitly, but the new fluxes were 



calculated explicity from the momentum equations and then used directly 
in continuity. Hence the scheme was computationally explicit. In 
fact, trial runs with an explicit form of the continuity equation gave 
the same stability limits as the implicit form. Evidently stability 
was controlled by the momentum and energy equations. The method was 
used to calculate a shock propagating inside a tube including boundary 
layer effects and for an external flow problem describing the growth of 
a shock on the leading edge of a flat plate suddenly accelerated to 
supersonic speed. An attempt to run the latter problem at subsonic 
velocity was thwarted by instability and long computation times. 

A method by MacCormack (39) is applicable to compressible flows 
and has second order accuracy in both time and space. It is a three 
level method of the Lax-Wendroff type, in which an approximate set of 
values at t + At is calculated from the starting values using spa- 
tial differences that step forward. The approximate values are then 
used in the second half of the scheme to calculate the true values at 
t + At from differences that step backward. It has been used with 
supersonic and transonic flows. Although this writer has had personal 
communications with several researchers who indicated the method could 
be used for very slow flows', publications have not been found to ver- 
ify the low speed behavior of the scheme. 

The LaX“Wendroff scheme referred to in the previous paragraph de- 
serves further mention. It is used with the inviscid equations rather 
than with the full Navier-Stokes equations. The one dimensional form- 
ulation was presented by Lax and Wendrof f (38) . Burstein (9) extended 
the scheme to two dimensions, but found that artificial viscosity was 



needed to stah±H'2<. computations. His sample calculation of supersonic 
flow over a blunt borl) -i<ad a subsonic region which was handled success- 
fully. The method csecond order and has superior accuracy. It is a 
three level scheme requiring considerable averaging and is difficult to 
use. 

Although the ii^j’thods discussed in this section have varying suc- 
cess in the subsonic region, they are all constrained by the Courant 
condition. For one^-^i uuens 1 on , this is approximately 

(|u| + a) II < 1 (2-6) 

Thus the time increment is constrained by the large value of the speed 
of sound even though the flox^ velocity may be very small. 

C. The PIC, MAC, a M ICE Methods 

The Los Alamos 'Scientific Laboratory (LASL) is a pioneer in the 
field of numerical fluid dynamics. Much of the early work performed 
there was done in the support of weaponry for World War II, Open pub- 
lications began to appear in the I950's, This section Introduces three 
of the LASL numerical fluid dynamic schemes, the PIC (Particle-in-Cell) 
method for compressible flows, the MAC (Marker-and-Cell) method for in- 
compressible flows, and the ICE (Implicit Continuous-Fluid Eulerian) 
method for compressible flows at all speeds. The numerical program 

developed in this thesis is based on the ICE technique. 

i 

The PIC method \aas developed in the 1950^s, but a later publica- 
tion by Amsden (2) is used for this discussion. The PIC method was a 
hybrid scheme which permitted Lagrangian particles to flow through an 
Eulerian mesh, carrying with them the conservation properties of mass. 



momentum, and ener^ . The computational f l^id was thus not a contin- 
uum, but an assembly of particles. Multiple fluids could be denoted by 
different types of particles. The conservation, state, and thermody 
namic properties of the contents of each cell were calculated using the 
number and types of particles lying within the cell boundaries. The 
number of particles in a cell varied due to flow and if the mean number 
was low, the cell properties oscillated in a bounded manner. The mass 
of each particle remained constant, so mass was automatically conserved 
by the method. It was thus not necessary to separately solve the mass 

equation. 

The calculation took place in two phases. The first phase was 
Eulerian and presumed no particle movement. The steps were: 

1) Compute the cell pressure from an equation of state 

P" = P (f, l) 

where n denotes the time coordinate index. 

2) Estimate a tentative new velocity U from the equations of motion 
with advection terms removed. This step required an artificial viscos- 
ity for stabilization. 

3) Estimate a tentative new internal energy I neglecting advective 
teirras in the energy equation. This ended the Eulerian phase. 

The Lagrangian phase allowed particle movement and included ef- 
fects of particles changing cells. The steps were: 

1) Calculate the total momentum of each cell containing N par- 


ticles by 
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■ N ■' 

K=1 

where was the mass of the Kth particle in the cell. Likewise 

calculate the cell internal and total energies o 

2) Move the particles by assigning to each an effective velocity 

which was a weighted average of the surrounding velocities U: then 

translate the coordinate Z by 

2^+1 = 2*^ + U ..At (2-9) 

eft 

3) If a particle crossed a boundary, adjust the cells for the changes 
in mass, momentum, and total energy t Then calculate the final veloc- 
ities by dividing the adjusted momenta by the adjusted masses. Use the 
final velocities to calculate the final internal energies from the 
final total energies. This concluded the process. 

The original concept of this method arose from particulate kinetic 
theory, the details having been developed over a long period of numeri- 
cal trials. Besides the added artificial viscosity q, the method had 
an implicit dissipative term (Cheng's pseudo-dif fusivi ty) which had the 
form Y p|u|aZ in the Z direction. This terra stabilized the compu- 
tation ^ At low velocities the Implicit damping term became small and 
instability resulted. In addition the Courant condition restricted the 
time increment size, so the method could not be used successfully for 
slow speed flows. 

The method suffered from accuracy not only due to the first order 
differential approximations but because a continuum flow was repre- 
sented by motion of a small number of particles. It did have the 



capability of treating flows with mo re. than one material and flows in- 
volving large fluid distortions. In addition, the particles showed the 
positions of the fluid, and their discrete translations could be filmed 

to pictorially show the fluid motion. 1 

Amsden (2) presented calculations of high speed wakes, shock in- 
teraction with a blunt object, explosive burning, and high velocity jet 
splash and particle impacts.. The pictorial solutions looked qualita- 
tively correct. Evans and Harlow (16) calculated the flow over a cyl- 
inder in a channel using PIC. The cylinder was impulsively accelerated 
to steady Mach numbers of 2, 4, and 6. The streamlines and shock posi- 
tions at steady state compared well with experimental values. Harlow 
and Meixner (28) calculated the rise of a hot gas bubble from the 
earth's surface, modeling a nuclear explosion in the atmosphere. The 
solution showed the shock front breaking away from the heated gas front 
and vertical stratification within the bubble due to shock-rarefaction 
interactions. 

A natura.1 progression of the PXC method was to eliminate the par- 
ticles as carriers of conservative properties and to use a continuum. 
This was done by Rich (43) and later by Gentry et al . (21). They re- 
tained the same calculation sequence as PIC but solved the equations 
in integral form, relating the change of the property within the cell 

to fluxes through cell surfaces. The equation for conservation of 

) 

mass was required in the second phase of the calculation since the 
mass-carrying particles were discarded. The absence of particles 
Identifying the fluid made two-fluid computations difficult. This 
problem was treated by Rich by initially specifying the .position of 
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the interface between two fluids, then tracking the Interface as the 
problem progressed. Gentry's scheme, called FLIC for Fluid-in-Cell , 
optimized the computation for one fluid and prescribed a treatment for 
boundaries that required partial cells. Problems of supersonic flow 
over obstacles and diffraction of a shock travelling down a Z~shaped 
tunnel compared well with experimental results. 

Concurrently with the PIC method for compressible flow, the MAC 
(Marker-and-Cell) method was developed for incompressible flow. A 
later summary document is Welch ec al . (55). The differential form of 
the conservation equations were used in MAC instead of the integral 
form, A Poisson equation for pressure was formed by substituting the 
momentum equations into continuity. The Poisson equation was solved 
Implicitly by relaxation to a specified degree of convergence to give 
the advanced pressure field, A technique developed by Hirt and Harlow 
(31) was used to correct for the lack of exact convergence. Pressure 
signals in incompressible flows are presumed to propagate instantly to 
all other points in the flow field. Thus the pressure at any point is 
a function of the entire velociry field, not just the local field. The 
implicit nature of the pressure equation served to carry the flow in- 
formation throughout the pressure field. 

After the iteration on the pressure field, the new velocities were 
calculated from the advanced time pressure terra and the old shear terms. 
Then the particles were moved according to their weighted average veloc- 
ities acting over the time increment At, The particle concept from the 
development of PIC carried over into the incompressible program, but in 
MAC, like FLIC, the particles served only as markers to identify the 



position, type, and motion of the fluids. The presence of a free 
liquid-gas surface was included, and the primitive variables of veloc- 
ity and pressure x^ere retained to facilitate this capability. Later 
improvements in the MAC numerical code led to the simplified MAC or 
SMAC method (3) . 

A fascinating series of numerical problems were pictorially pre- 
sented in Welch et al. (55) , Harlow and Amsden (26) , and Amsden and 
Harlow (3). These included a wave breaking on a sloping beach, a wall 
of water hitting an obstacle, water flow from a sluice gate, formation 
of a hydraulic jump, waterfalls, fountains, and others. Further appli- 
cation to multiple immiscible fluids was demonstrated by Daly (13) who 
studied Rayleigh-Taylor instability in a system with a dense fluid in- 
itially layered above a lighter fluid. Mushroom-shaped spikes of fluid 
were formed in the numerical calculation as the fluids began to invert 
to a stable configuration. These spikes were observed experimentally. 
Quantitative comparisons of grox^th of the protuberances were favorable. 
The MAC technique was extended by Hirt and Cook (30) to three dimen- 
sions including thermal buoyancy. Using 3344 cubic cells they computed 
flows over and around configurations of rectangular solids. Such cal- 
culations could be applied to meteorology and atmospheric pollution 
problems. They used the cell markers to follow the dispersion of a 
tracer from a point source. The results were displayed in perspective 
drawings. 

The MAC method has been used by investigators outside of LASL, 
Donovan (14) computed the transient formation of a laminar vortex In a 
rectangular cavity where one wall was impulsively accelerated to a 



constant velocity. Counter-rotating vortices, appeared In the comers 
away from the moving wall, and steady state velocity components agreed 
with experimental data. Phillips (42) applied the method to impulsive 
and pressure-driven oscillating flows in a sudden expansion and in a 
tee. His interests were mainly numerical and although lie recognized 
the existence of the truncation errors he did not try to remove them. 
Experimental comparisons were not available. Fernandez (17) used the 
MAC scheme to study pulsatile, incompressible flow in a bifurcation as 
a model of arterial flow, A dual grid system was mated at the junction 
of the bifurcation to carry the flow off, at an angle. His solution 
showed a region of high shear stress at the inner (bifurcation) wall 
and a recirculation eddy at the outer wall which disappeared during 
part of the pulsation. These fluid phenomena were of interest in the 
formation of deposits in blood vessels. 

The ICE (Implicit Continuous-Fluid Eulerian) method was presented 
in 1968 by Harlow and Amsden (27), then revised and improved in a later 
publication by the same authors (25) • This is the only method found 
which could treat compressible flows at all speeds. The method com- 
bined concepts developed through the evolution of the compressible and 
incompressible methods discussed earlier. The differential forms of 
the equations were used and the pressure field was found implicitly as 
in MAC. The calculation of all other variables then could be performed 

I 

explicitly. The Courant restriction applied to local fluid velocities. 
The method and program will be described in detail later. The authors 
performed in a truncation analysis for the one dimensional unsteady 
equations and suggested the addition of terms to correct ; these errors 



and improve stability and accuracy. An example problem of an explo- 
sion leading to shock waves (compressible high speed flow) and a rising 
hot gas bubble (semi-compressible slow speed flow) was presented. 

The problem of multispecie chemically reacting flows can be ap- 
proached in two ways depending mainly on the kinetic models. One ap- 
proach is to define a set of detailed kinetic reactions and to con- 
struct a model of blocks describing flow, reaction, and physical proc- 
esses such as evaporation. The detail required in each block is 
specified according to current modeling capability and computer cap- 
acity. These blocks are then coupled together to describe the total 
process. The work of Edelman et al . (15) illustrates this approach. 
Another method is to write the full conservation equations in rigorous 
form with a global chemical reaction. Selder (47) has done this for 
dilute specie reactions. Both Edelman and Seider consider steady prob- 
lems only. In his discussion of laminar flow reactions, Williams (56) 
points out that neither approach can be verified as the correct one. 
This thesis uses the second approach without the constraints of steady 
state or trace concentrations of reacting species. 

This concludes the review of literature concepts and LASL devel- 
opments pertinent to the present study. Several texts were used as 
sources of additional inf ormatlon<. This includes Richtmeyer and 
Morton (44) and Von Rosenberg (52). The LASL monograph on fluid dy- 
namics (26) and the excellent current text by Roache (45) have provided 
much physical and numerical insight. More information on the numerical 
methods developed at LASL may be found in the annotated bibliography by 



Harlow (24). The text by Bird, Stewart^ and Lightfoot (4) was used 
extensively to guide the mass transfer formulation. Much general in- 
formation on boundary conditions and numerical methods was found in 
Schwab (46) . 



Chapter 3 


FORMULATION OF THE PARTIAL DIFFERENTIAL EQUATIONS 


A. Tensor Fortos 

The conservation equations which mathematically describe the class 
of unsteady two dimensional problems treated herein were listed in the 
introduction as equations (1~1) to (1-4). The stress tensor was equa- 
tion (1-5) c These equations will now be developed into the conven- 
tional notation of partial differential equations. A nondimensionali- 
zation will then be performed which is appropriate to the class of 
problems to be treated. 

The equation for conservation of momentum (1-2) requires convari- 
ant differentiation of the viscous stress tensor. The differentiation 
is performed holding viscosity constant, although in the numerical 
problems the viscosity can be varied from point to point* This is 
equivalent to assuming that all spatial gradients of the viscosity co- 
efficient make negligible contribution to the momentum viscous terms. 
Such an assumption is reasonable for many gas mixing problems. The 
differentiation gives 


M = 


1 ii m 
3 ,mi 


mi 1 
- Pg v' 


mi 


(3-1) 
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Using the identity 



24 


,mi ^ .mi 


B ^-: t> m-t pks ,mi 


in equation (3-1) gives 


ii 4 11 m , jmp ki s 

,i 3 ® ,mi pks“ ,mi 


(3-2) 


(3-3) 


which is substituted into (1-2) o 

The equation for conservation of total energy also requires covar- 
iant differentiation of the product of the stress tensor and velocity. 


With a little manipulation this can be shown to give 



The last term can be modified by the identity 


(3-4) 



(3-6) 


This relationship is then substituted in (1-3). 

The use of equations (3-3) and (3-6) allows the viscous stress to 
be removed from the momentum and' energy equations, being replaced by 
velocities and velocity gradients. The conduction term may be written 
using Fourier’s Law, 

qj = _ kg^^T (3-7) 

For an ideal gas 


1 = C^T 


(3-8) 
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so 
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(3-9) 


This removes temperature as a variable in the energy equation. 

The right hand side of the Kth species equation (1-4) may he ex- 
panded using 

(n^)^ = (j^)^ + Pj.v^ (3-10) 

For multicomponent mixtures of N ideal gases the mass diffusion term 
is 

= -tI/ WkrS^'<V 

R=1 

The subscript R as used here does not denote a tensor quantity. The 
reaction rate is written as a generation term. For a second order re- 
action 


(rj,) = k'p^p® (3-12) 

This is valid for the stoichiometry of A moles of specie K reac- 
ting with B moles of specie L. The rate coefficient k* in mass 
concentration units may be related to the rate in molar units by suit- 
able ratios of molecular weights., Equations (3-10), (3-11), and (3-12) 

i 

f 

may be used in (1-4) . . <> 

With all of the above substitutions, the final set of continuum 
equations in tensor form which mathematically describes unsteady com- 
pressible flow problems with multispecie diffusion and chemical reac- 
tion is 
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Mass : 


Momentum : 


If = - 


(3-13) 
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Total Energy: 
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Multicomponent Species: 


3t 



N 


M /_J WkR®^ 
— R=1 


1 « A B 


(3-16a) 


In some instances the multicomponent diffusion coefficient may be re- 
placed by an effective binary diffusion coefficient as described in 
Bird et al. (4). The species K is assumed to move into a mixture 
which may be treated as a single fluid R containing no K. The mix- 
ture is denoted by R minus K (R~K), Then the conservation of 
specie mass is expressed by 
Binary Species: 
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(3-16b) 
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B ptfHiii nj tonal Component Equations 

final set of dimensional component equations will be written 
in j-jjp j cylindrical system of coordinates to properly describe the 

tube studied herein. Hereafter sub- and superscripts are not 

used art I ensor notation. Also hereafter overbars will denote dimen- 
sioned fjUrtntities, and r and z are also dimensioned. 
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Two additional equations are needed. The total energy is composed 
of internal and kinetic energy. Then the internal energy is calculated 
by 

T = E - I (3-22) 
An equation of state for an ideal gas is 


P = (y - Dpi 


(3-23) 


The set from equation (3-17) to (3-23) includes all equations necessary 
to describe continuum flow. Boundary conditions will be treated later, 

C. Dimensionless Component Equations 

The partial differential equations will now be made dimensionless. 

A set of characteristic values are selected as follows: 

Length - R^ the tube outer radius 

Velocity = V usually a known input velocity 

Time = the cycle time or period for oscillating flows. 

If the flows are not oscillatory, this may be set 
to one, or any other time characteristic of the 
problem 
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State Conditions =^,P ,M*1 ,T,C the conditions of a 

reference stream. 

These characteristic quantities are used to define dimensionless vari- 
ables. 


t = t/t^ 

t 

(3-24) 

V = V / V 
r . 

(3-25) 

U = V / V 
z 

(3-26) 

R = 

(3-27) 

Z = z/Ey 

(3-28) 

P = P/^ 

(3-29) 
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(3-30) 

E = E/V^ 

(3-31) 

I = 1/V^ 

(3-32) 


(3-33) 

II 

1 

(3-34) 

T = ("t - T*)/T* 

(3-35) 

C = C/C* 

(3-36) 

M = 

(3-37) 


The temperature and internal energy are related by 

, f* = R(,T*/[('r - 1)M*I (3-38) 

This permits definition of a reference internal energy if a reference 
thermodynamic state is specified. 
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When the set (3 24) through (3-37) is substituted into the compon- 
ent equations, several dimensionless groups arise. These are defined 
as follows: 


Euler Number 


Prandtl Number 


Reynolds Number 



(3-39) 

(3-40) 

(3-41) 


Schmidt Number 



(3-42a) 



(3-42b) 

(3-43) 


Ng^ == 2iTfR^/^ 

It appears in cyclic phenomena such as acoustics, and it ratios the ac 
tion time of a characteristic velocity acting over a characteristic 
distance to the time required for a cyclic perturbation. Since 7^ 
corresponds to 1/f, then is 1/2tt times the normal definition 

of a Strouhal Number. 

With these definitions, the dimensionless component equations may 


be written 
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(3-46) 
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„ , I A B 

•" "k^i 



Binary Species? 
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Internal Energy: 
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« Vsc 
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(3-49) 


I = E ~ y [V^ + u2] 


(3-50) 


Equation of State: 


P = — - pi - 1 (3-51) 

Eu 

A few points should be made about these equations. The equations 
as shown are in conservative form, relating the change of a quantity at 
a point to fluxes and forces acting on an infinitesmal surface enclos- 
ing the point. Cheng (11) has stated that only this form gives satis- 
factory accuracy in numerical solutions of the full Navier-Stokes equa- 
tions. A complete energy equation using temperature as the dependent 
variable can not be written conservatively. Hence total and internal 
energy is used. 

Isothermal incompressible flow does not require an energy equa- 
tion. But calculations of compressible flows must include an energy 
equation, and the energy couples with the fluid dynamics through the 
equation of state. The state equation used herein applies to ideal 
gases, and it. and the energy equation are bypassed for incompressible 
calculations. Only equation (3-51) need be changed to accommodate 
non-ideal fluids. Any equation of state which properly describes the 
fluid may be used. The LASL monograph (26) discusses some other state 



equations* including one describing the behavior of a normally solid 
material flowing under ultra-high velocity impact.. 

The next chapter depicts the finite differencing of the equations 
and outlines the method of their solution., 



Chapter 4 


• FORMULATION OF THE FINITE DIFFERENCE EQUATIONS 

A. The ICE Cell and Computational Mesh 

The continuum equations are converted to discrete equations by 
casting a mesh over the field of interest and defining the variables 
at select locations on the mesho For the ICE system, the mesh con- 
sists of a series of cells, dimensioned AR and AZ in the radial 
and axial directions, respectivelyo These cells are actually cross- 
sections of annular rings where angular variations are presumed neg- 
ligible. A typical cell is shown In figure 1. The cell coordinates 
are indexed at Its center, i counting cell rows increasing in the ra- 
dial direction toward the wall, and j counting cell columns increas- 
ing in the downstream axial direction. The axial and radial velocities 
are defined on the middle of the cell walls, and all the other vari- 
ables are defined at the cell center. This system is also used in the 
MAC scheme. The cell aspect ratio is 

R^ - AR/AZ " (4-1) 

} 

There is no constraint that the cells be square. 

The temporal' and spatial coordinates of each variable is denoted 
by a superscript and two subscripts. The superscript denotes time, 
with n being the current time t, and n + 1 being advanced time 
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t + Ato Current variables are called explicit, and advanced time vari- 
ables are called implicit <. The twc subscripts denote radial and axial 
position, respectively e A typical cell-centered variable such as den- 
sity in the (i, j)th cell is The downstream axial velocity on 

i > J 

that cell is U, . , , and the radial velocity closer to the center- 

X , J Ti / / 

line on that cell is Vc ^ If a value for a variable is required 

at a location where it is not defined, a simple average is used- Thus 

u" = i fu" + u" 1 

l.j 2 I, (4-2) 


n 

*’i+I/2,j-l/2 


i+l,j 


^i+l,j-l ‘‘‘ 


(4-3) 


When a differential is required at a location such that averaging is 
necessary, the rule is: form the differential, then perform the aver- 

aging. For example. 


SZ 


n 

i+l/2,j+l/2 


n _ n 

^ 1 + 1/2 , .1 ^ 1 + 1 / 2 , 1-1 

AZ 



2AZ 


(4-4) 

The placement of velocities at locations different than the other 
variables has a number of advantages- First, it provides a convenient 
arrangement for defining centered velocity differences. Consider the 
spatial first derivative, 3U/3Z, to be evaluated at the point (1, j). 
Presume that all variables are defined at (i, j) including U. Then 
the differential may be approximated at least three ways by Taylor Ser- 
ies expansions around the point (1, j) . 
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(4-5) 


(4-6) 


(4-7) 


The centered difference has higher accuracy, which is desirable. But 
the two values of U are separated by 2AZ, and the value of U at 
the point (i, j) Is not used ac allr. By defining variables on the cell 
as shown in figure 1 the cell centered differential becomes 


az 


n 



+ terms 0 (aZ) 


2 


(4-8) 


srid the values or U are separated by only AZ, Since the values are 
closer to the point where the differential is desired, this approxima- 
tion is better than (4-7) . First derivatives of velocity are impor- 
tant quantities c With all other variables defined on the cell centers, 
the opportunity to use the form (4—8) occurs frequently o 

Another advantage of the ICE variable placement is improved sta- 
bility « Richr.meyer and Morton (44) show that skew velocity placement 
such as in the ICE method provides less restriction on stable values 
of At and AZ than does defining both velocities at the same point* 
The skew scheme is often used for hyperbolic equations. 

Finally^ the variable placement on the ICE cell provides an aid 
to visualizing the physical aspects of the problems. The cell centered 
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properties describe the "contents'* of the cell. Since the velocities 
are defined on the walls» they can be envisioned as carrying the cell 
contents through the cell walls. 

1 

The cells fit together to form a grid on the field of interest to 

i 

the calculation. Such cells are called interior cells. An additional 

1 

row or column of cells is added to each boundary.. These cells are ar- 
tificial, in that they exist only to apply boundary conditions to the 
interior cells.. Figure 2 shows the calculation mesh with the boundary 
cells. Four types of boundaries are shown: wall, symmetrical center- 

line, inputs, snd ourputu These will be discussed later. Since the 
first row of cells i - 1 is a boundary row^ and the tube centerline 
is at R = 0, the radial distances to the Inside, center, and outside 
of cell (i, j) are 

(^- 9 ) 

= j (21 - 3)iE (4-10) 

'^ 1 + 1/2 ' 

P^^glQpPtent of the Poisson Equ a tion for Pre s sure 
With the cell and grid system defined, the finite difference ap- 
proximation of the mass equation is written at the point (i, j) as 



N 


Si 


I n+1 n \ 


At 


= - e 


R.AR 


- e 


/ n+1 \ 

ri, .1+1/2 i,.i+I/2 ^1,. 1-1/2 i,. 1-1/2/ 


AZ 


- (1 “ e) 


In ^ -T? ^ ^ 

I i+l/2^i+l/2,.i^i+l/2,.i ^i-l/2^i-l/2,.ri-l/2,j/ 


R,AR 

1 


- (1 - 0) 


/ n ..n _ n „n \ 

. e) rt. .1+1/2 1.141/2 ^i.i-l/2'-^i.. 1-1/2 j .J. 


i>3 


(4-12) 


Note that the mass fluxes are repeated, first implicitly with super- 
script n+1, then explicitly with superscript ti. The implicit and 
explicit groupings have coefficients 6 and (1 - 9) , respectively. 
Values of 0"' range from 0 to 1 with the value held constant over time 
and position for a particular numerical computation. 9 acts to pro- 
portion the amount of implicit versus explicit mass fluxing used in 
computing the change of cell centered density with time^, If 6 = *5, 
the equation is time-centered and certain truncation errors vanish. 

The term 3^^ is a correction which appears as an added diffusion term. 
It may be used to improve the scheme's stability and accuracy by remov- 
ing certain truncation errors, or if stability is a problem the 3^^ 
term can provide additional stability at the expense of accuracy, 

3 corrections will be discussed in the next chapter. 

Before finite differencing the component momentum equations, it is 
necessary to define a new variable, which Harlow and Arasden (27) have 
called the hybrid function P. The hybrid function is formed from the 
equation of state, which has the general functional form 
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P-P(P,I) (4-13) 
This function may be expanded over intervals around the state (p,I) to 
give 


P(p + Ap, I + Al) - P(p,l) + (||-) Ap + AI + terms O(A^) 


(4-14) 


The equation of state in finite difference form is 


(y “ 1)" . 


P" 


N 


Eu 


11 11 

p . .1. . - 1 


(4-15) 


Equation (4-14) may be written at the point (i,j), and if the Taylor 
expansion is understood to be over the time domain, the differences Ap 
and AI are implicit minus explicit values. Defining the left side of 
equation (4-14) as the hybrid function P, a tentative implicit pres- 
sure, and using (4-15) to evaluate the partial derivatives, 

P. . = pV . + \ + /^n+l _ \ 

i>J \i,J j i,j\i,j i,j/ 

(4-16) 

The series is truncated after the first order terms, and the isothermal 
speed of sound squared is 


v" . = 


• A « 


N 


i»3 


Eu 




(4-17) 


The LASL ICE method excludes the first order difference - l” \ 

Although most calculations performed herein also discard this differ- 
ence, some numerical experimentation is done with the difference in- 
cluded. It will therefore be retained in the finite differencing. 
Equation (4-16) may be solved for the Implicit density. This gives 
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n+.l 

P 




(4-18) 


With the hybrid function P defined, the momentum equations may be 
finite differenced. For both the R and 2 component: equations all 
the flux and shear .terms are written explicitly. Only the pressure 
term is written both implicitly and explicitly, and the hybrid function 
is used as the implicit pressure. A proportioning constant cp appears 
in the momentum equations in the same manner as 6 in the mass equa- 
tion. 


The radial momentum equation is written at the point (i-l/2,j) as 


SI 


n+1 ^ v” 


i,.T x-1,1 
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- «Eu^l “ 


1-1, J 


AR 


^i-l/2,j 


(4-19) 


^ 3 - 1/2 j ^ collection of explicit terms for momentum fluxes, shear 

terms, and a truncation error correction 3 . Likewise, the axial 

VK 

momentum equation is written at the point (i,j-l/2) as 
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(4-20) 


1-1 /? collects explicit flux and shear terms plus a correction 3 
for the axial momentum equation. 



A Poisson equation for P is formed as follows from equations 
(4-12), (4>-18), (4-19), and (4-20). The coefficients (1 - 0) in the 
mass equation (4-12) are split into two coefficients, 1 and (-6). Then 
the explicit terms multiplied by (-6) are grouped with the implicit 
terms multiplied by G to produce differences such as 

/ n+1 

\ i+l/2^i+l/2,j i+l/2,j “ i+1/2 i+l/2,j i+l/2,j 

That is, these terms are differences in time at the same spatial posi- 
tion, An identical difference is formed at coordinates (i-l/2,j). 
Differences of pU at coordinates (i,j+l/2) and (i,j-l/2) are also 
formed. It can be seen that if equation (4-19) is written at the point 
(i+l/2,j) and multiplied by left hand side of the result 

contains the difference shown above times This is repeated at 

the point (i-l/2,j). Equation (4-20) is used at points (i,j+l/2) and 
(i,j‘-l/2) o Thus with a little manipulation, the momentum equations may 
be substituted into the mass equation to remove advanced time mass 
fluxes while introducing the hybrid function P. After these substitu- 
tions are made, the only remaining implicit density is in the time dif- 
ference of the mass equation. This may be removed using (4-18) . The 


result is 
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(4-21) 


The term . groups a number of explicit terms and incorporates the corrector 3 
^ > j 




C, Final Finite Difference Forms 

The finite difference equations are shown in their final form. The radii are written using 
equations (4-9) to (4-11), and AZ is removed using the cell aspect ratio, equation (4-1), When 
a variable is required at a location where it is not defined, the necessary averages are formed. 
Most averages are bracketed and easy to detect. Coefficients are extracted wherever possible. 

Variables which collect explicit terms are written below. The velocity divergence is used 
several places and is denoted by « 

1 s 1 
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(4-22) 


The two variables used in the momentum equations are 
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(this eq. is continued from previous page) 
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The term which appears in the P Poisson equation is 
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( 4 - 24 ) 


( 4 - 25 ) 


The explicit momentum fluxes in equations ( 4 - 23 ) and ( 4 - 24 ) are written using ZIP differ- 
encing, which is a conservative method discussed in the LASL papers. It defines the finite dif- 
ference momentum flux through a cell wall so that the flux is arithmetically the same whether 


x> 

4 >- 



viewed from the donor or the recipient cell. ZIP differencing has fewer truncation errors to be 
corrected by 6^^ and 

The Poisson equation for P was solved by point successive over relaxation (SOR) and also 
alternating direction implicit methods. These are discussed in detail in Appendix A. The final 
form of the P equation is 
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The functional SOR form with relaxation coefficient a is 
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For ADI the equation is made into a pseudo time-dependent equation with variable x 
pseudo time. Two equations are required to bridge an increment AX. 
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As with SOR, the ADI method approaches the true P field to a specified accuracy, 
script Q refers to the Qth iteration. 

The R~ and Z- momentum equations yield advanced values for V and U. 
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The total energy equation is written with alnios t all advanced time terms 
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(equation (4-31) continued on next page) 
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(equation (4-31) continued on next page) 


4>- 

co 



- 2R. 




/ n+1 ^+1 _ ^+1 ^+1 \ n+1 / n+1 _ n+1 \ 

Vi+l/2,jVl/2,j Vl/2,j-lVl/2,j-lj ^ ^i,j-3/2j 


,n+l 


i+l/2,j i-l/2,j '^i+l/2,j-l ^i-l/2,j-i; VVl,j-l/2 ^i-l,j~l/2 




/ 


n+1 

> . 

(4-31) 


The internal energy is simply 
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The above equations (4-22) to (4-32) plus equation (4-15) are sufficient for single fluid 
problems. If species diffusion and reaction are required, the conservation of component mass 


equation must be included. This is finite differenced as. 
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The binary fonn is used in this study. Only the molecular diffusion 
term differs in the multicomponent version, and its form is easily seen 
from equation (A-33). The convective fluxes are written both implicitly 
and explicitly with a proportioning coefficient y;. As with 6 and cp, 
0 ^ ^ 1, The diffusion term is written explicitly, and the reaction 

term implicitly. This choice of implicit vs. explicit finite differ- 
encing evolved from numerical experimentation performed herein. 

The implicit nature of the equations requires an implicit scheme, 
and the ADI method Is used. The equation is solved in a two step fash- 
ion, the first step presuming diffusion without chemical reaction and 
the second step presuming reaction only. To assure convergence, the 
time step At is subdivided into smaller increments, At', for the dif- 
fusion calculation. The reaction step subdivides the increment At’ 
into even smaller time steps At". This process is necessary because 
the characteristic time of reaction kinetics is often considerably 
shorter than the characteristic time of fluid motion. A suitable At 
for fluid flow may be many times too large for chemical reaction, re- 
sulting in reaction overshoot, errors, and usually numerical instabil- 
ity. Equation (4-33) is written over the time increment At, but It is 
used in the computer program over the smaller increment At\ Thus the 
superscript notation shown is not exactly correct for an increment 
At’. In practice the explicit terms are calculated, then the diffusion 
without reaction is calculated over At' for each specie. Next the 
reaction is presumed to take place without diffusion in a series of 
time steps At" = At'/Y. This reaction step is done Y times, each 
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step using the results of the previous reaction. Then diffusion is - - 

again calculated over the next At* using specie densities computed 
from the last At’ in the implicit portion of the equation. The proc- 
ess is repeated until the true time step At is bridged. 

i 

The ADI formulation used in the diffusion calculation across in- 
crement At’ is 
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The explicit terms in equation (4-33) , including the truncation error 


correction ste multiplied by AR/4) and collected under the term 

in equation (4-34a)^ The chemical reaction equation is simply 





+ At 




n+(y-l)/Y ^ ^ n+(y-l)/Y 




%l 


(4-35) 


ii3 


As mentioned before, this is performed Y times in each increment At't 
The full set of finite difference equations for compressible flows 
with specie diffusion and chemical reaction has been presented. The 
next task is to examine the application of boundary conditions to the 
ICE computational scheme. 


D. Boundary Conditions 

A typical cell and the computational mesh was shown in figures 1 
and 2. The ICE system is especially convenient in applying boundary 
conditions. In ail problems considered here, boundaries are aligned 
with cell walls. That is, there are no partial cells with boundaries 
passing through the cell interior. As mentioned earlier, the grid has 
four types of boundaries: centerline, wall, input, and output. There 

are also three types of boundary conditions. They are based on assump- 
tions concerning the boundary value of a variable itself, or on its 
first or second spatial derivatives. 

The centerline boundary is symmetrical, presuming no radial flux 
is possible across the centerline of a tube with flow independent of 
angular position^ Assume the cell i , j is within the computational 
grid and the wall at i - 1/2 lies on the centerline. Then 


All other variables, such as 


V 

U 


1 - 1/2 
, are 


. = 0 

symmetrical . 


(4-36) 




(4-37) 



Nonzero variables are not defined on the centerline i - 1/2, making it 
unnecessary to write particular equations obtained by evaluating limits 
as 1/R 0. 

Wall boundary conditions are usually straight forwards A no-slip 
wall means the axial velocity is zero at the wall. But U is not de- 
fined at the wall. Therefore, an average must be formed at the wall 
which is zero, and this prescribes the value of U In the artificial 
row of cells which impresses boundary conditions. If the cell i,j 
has its wall at i + 1/2 aligned on the tube wall. 


If the wall is full slip, the axial velocity radial gradient is 


(4-38) 
zero , 


and 


“i+l, 3-1/2 “ “i, 3-1/2 


(4-39) 


Tor an impermeable wall, 


V. . 1 /o * = 0 

1+1/2, j 


(4-40) 


If the wall is reflective. 


P = P 


(4-41) 


V > = - V 

''i+3/2,j i-l/2,j 


(4-42) 


Other assumptions may be made to evaluate ^j^43/2 j’ T^^se are 
based on the velocity divergence, which is presumed to be reflec- 

tive if the density is reflective. Then 

<^ 1 + 1.3 

This can be solved for . if the wall permeability and slip Is 

i+i/2 ,j 
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specified. This condition also removes a gradient term at the wall in 
the energy equation. For incompressible flows all Q’s are zero. If 
the wall is insulated, 

E. . = E. . (4-44) 

i+l»J 


^i+l,j ~ ^i,j 


(4-45) 


An especially superior boundary condition can be found on P and 
P at the wall if all velocities are known. If the wall is impermeable, 
3V/3t is zero, and this may be used with the finite difference form of 
the radial momentum equation to give P and P. The coefficient cp is 
arbitrary and may be set to either 1 and 0, leading to 




P. . + B 


n 



(4-46) 


P. . . = P. . + ./N._ 

1+1 1>J 1 + 1 / 2 , j bu 


Care must be taken that the equation of state is satisfied at the wall. 
Thus if P and p are specified, 1 is also known. 

The upstream boundary condition is usually a specified input. 

Again presume the cell i,.j lies in the computational grid with the 
cell wall at j - 1/2 coincident with the input boundary. For all 
problems run herein the radial velocity is assumed zero. Since V is 

not defined on the input boundary, an average is formed of straddling 

! 

axial values, and 




(4-48) 


If P and I are specified, p is known 
U. . o /Q found by an assumption on Q 


U. . is calculated, and 

1 - 1/2 » 

at the input. Usually this 



is not critical. The input total energy may be calculated after 

U is known. Conversely, if the input velocity is prescribed, 

i,j-l/2 

the axial momentum equation will specify the pressure gradient at the 
input and, for arbitrary cp, 




°1,J-1/2/(Veu> 


(4-49) 


A similar equation is written for j—1* P found from 

the equation of state. 

The least resolved boundary conditions are at the output. Often 
the pressure is known or may be calculated as a function of velocity, 
but other variables are not known. LASL often uses the concept of a 
continuative output. This is a boundary condition which does not prop- 
agate signals far upstream, since all gradients are set equal to zero. 
The problem may be distorted in the region near the continuative output 
boundary c Paris (41) presumes the output boundary is so far downstream 
that at steady state a known flow, such as parabolic Poisuille flow, 
exists at the output. The output boundary is moved farther downstream 
in a series of numerical experiments until no further change occurs in 
the solution. But several problems in the present study have outlet 
boundaries that are not far downstream. It is thus not possible to use 
the concepts of Paris in these cases. 

The continuative output is desirable for many of the prescribed 
input flows, but the possible distortion near the output boundary is 
unwanted. It Is found that a reasonable output flow results when the 
pressure is fixed and the remaining variables are assumed to have con- 
stant first derivatives at, or near the output., Thus the second de- 


rivatives are zero. 



U. . 0 , 0/0 " 2U. . ,0 + U. • 1 /o 

X,. 1 + 3/2 1 , - 1 + 1/2 X, 1 - 1/2 ^ 


^ 0 


(AZ) 


(4-50) 


leading to 

“i,j+3/2 ° ^“i,j+l/2 ' “i,j-l/2 

and 


(4-51) 
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i,j+l 



i J-1 


(4-52) 


and so forth » 

Note that the (4-52) condition presumes the second derivative is 
zero at the center of the last cell upstream of the output boundary, 
rather than at the boundary itself. If a zero second derivative of any 
cell-centered variable is applied at the output boundary j + 1/2 to 
find a value at j + 1, variables at both j + 2 and j + 1 arise. 
Thus the number of unknown values is not reduced. The definition 
(4-52) applied to all cell center variables uses information at two up- 
stream locations and produces a smooth output. Heuristic reasoning 
suggests that if a zero axial second derivative is applied a half cell 
upstream of the true output boundary, it is also effectively applicable 
at the boundary. Conversely, it must be recognized that a slight dis- 
tortion may be introduced upstream of the output boundary. 

The boundary conditions on specie densities offer no new problems. 
Symmetry still applies at the tube centerline, the wall radial gradient 
is zero to prevent mass transfer through the impermeable wall, the in- 
put is specified, and the output is continuous in the sense that the 
second axial derivative of the densities is assumed zero near the out- 
put boundary. It should be noted that for some variables a reverse 



flow from outside of the tube into the downstream end of the tube would 
cause no real problem in the computation. But for specie densities 
such a .flow reversal would be disasterous since the degree of mixing 
and reaction outside of the tube is entirely unknown. 

This concludes the general description of boundary conditions. 

The conditions used for each problem will be discussed in the results 
section. The same finite~dif ferenced conservation equations apply over 
the interior cells for all problems, A specific problem can be calcu- 
lated only by impressing suitable boundary conditions. If the bound- 
ary conditions are unrealistic, so is the resulting problem. Thus, the 
application of boundary conditions must be done with extreme care, 

E . Computer Solution of the Equations 

An examination of the finite difference equations show a large 
number of implicit terms (assuming cp and 0 0) . This favors sta- 

bility and gives confidence in the time dependent aspects of the prob- 
lem. It also can increase certain truncation errors and can lead to 
long numerical iterations. The implicit nature of the equations is 
needed for fluid flows at low speeds. This is because slow flows be- 
come incompressible in behavior and require knowledge of the entire 
pressure field. This knowledge is. propagated through the grid by the 
implicit solution process. 

The basic ICE method requires iteration only for P. All other 
variables may be calculated in an explicit manner. If the expanded 
definition of the hybrid function as presented by this author is used, 

4 n*!" 1 ''' 

an Iteration on I is required. Since the inner P iteration is 
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nested within the outer iteration, the expanded algorithm should 

be avoided if possible^ Fortunately, this usually can be done. The 
iteration required by the Implicit convective fluxes In the species 
equation is not nested with the other two iterations, and it does not 
incur a severe computer time penalty. 

An outline of the algorithm is shown in figure 3. After an initi- 
alization sequence the main time loop is entered. Explicit terms in- 
cluding all truncation corrections and Q,, B, D, and G are calcu- 

, , , . . ^n+1 . . , ^n+1 . ' 

lated. If the outer iteration on I is required, I is initi- 

ally set equal to 1^. The P iteration commences using either equa- 
tions (4-27) or (4-28a,b). Upon convergence to a suitably small 

n+l 

change, the advanced density p is computed from equation (4-18). 

Next and may be calculated using equations (4-29) and 

(4-30) . At this point the continuity equation is checked to assure 

-3 

that it is satisfied to at least 3,5x10 , a number which LASL found 

a minimal for satisfactory accuracy and stability (55). If this test 
is exceeded for any cell, the program performs more P iterations and 
recalculates p . When the continuity test is satisfied, E and 

I are calculated using equations (4-31) and (4-32). If an outer 

n+l ' 

iteration is required on I , the program may return to the P iter- 

n+1 

ation with the improved value of I , or the program flow may pro- 
ceed. If the fluid is designated as incompressible, the speed of sound 


is set to a large value (10 ) and the energy calculation is bypassed. 


If the fluid is multicomponent, the species equation is solved by 
computing the explicit term and iterating on (p^) with a 

number of reaction steps after each iteration. After convergence the 



advanced pressure P is computed from the equation of state (4-15) 
and the time cycle is completed. 

Further details may be found in Appendices A, B, and C. Appen- 
dix A discusses the SOR and ADI schemes for solving the P equation, 

Appendix B proposes a sequence for solving the reaction equations with 

1 

strong temperature effects, and Appendix C documents the current numer- 
ical program which is still in the research phase. 

This concludes the development of the finite difference equation 
and the outline of their solution. The next chapter discusses stabil- 
ity analyses and the truncation error corrections, 



Chapter 5 


STABILITY AND TRUNCATION ERROR ANALYSIS 
The problem of numerical stability was briefly discussed in the 
introduction. This chapter examines the matter of stability in more 
detail and presents several methods which can predict stable bounds on 
time and space increment sizes. Also, the Courant-Friedricks-Lewy 
necessary condition for stability has been adequately covered in the 
introduction. The approach of Cheng mentioned in the introduction is 
similar to that of Hirt, but Hirt's analysis is preferred, 

A simple equation containing both a convectipn and a diffusion 
terra is used to illustrate the methods. The analysis by Hirt is ap- 
plied in more detail to simple conservation equations. It is used in 
this thesis with the two dimensional ICE equations to generate terms 
which correct for truncation errors that produce instability and loss 
of accuracy. The corrections are presented and finite differenced. 
Besides the original papers, the excellent presentation in the text 
by Roache (A5) is used heavily in this chapter, 

A. Basic Concepts 

It is more correct to say that the numerical fluid dynamicist is 
faced with the problem of Instability rather than the problem of sta- 
bility. A computation may be stable and incorrect due to unwanted 
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numerical diffusion, but an unstable computation is usually cata- 
strophic. Stability analyses are difficult. Most equations of inter- 
est are nonlinear, whereas most analyses are linear, and their appli- 
cation to multidimensional equations which are not simple In form in- 
volves ponderous algebra© But linear analyses do provide some Insight 
into the behavior of the equations, so such analyses are worthwhile in 
assisting the fluid dynamicist toward producing a numerical solution 
which approaches the physics of the flows. 

Two types of numerical instability are found in computations: 
static and dynamic. Consider a variable W which is distributed over 
a coordinate Z at a time t. Presume that this distribution repre- 
sents a steady state solution of W(Z,t). Now perturb the solution in 
a point to point manner along Z such that the perturbation oscil- 
lates producing a saw-tooth error curve over Z, Three types of dyn- 
amic behavior can occur at later time steps. The perturbations can 
die out, then the finite-difference solution is stable. The perturba- 
tions can grow monotonically , the deflection increasing at each time 
step so that a positive perturbation remains positive and grows larger, 
This is static instability. The perturbations can not only grow but 
also change sign, flip-flopping around the true steady state solution. 
This is defined as dynamic instability. One instance of dynamic in- 
stability occurs when a normally stable explicit scheme is run at too 
large a time step, the large At causing drastic overshoot on all de- 
flections© Both static and dynamic instabilities were encountered in 
the present study. 



The analyses of the next section will be illustrated using the fol- 
lowing simple partial differential equation In one spatial dimension 
with constant coefficients, U and v. 


Hi 

at 


,, 3W . , 3^W 


(5-1) 


This equation has a convective and diffusive term on the right hand side 
and thus simulates the form of the conservation equations. The finite 
difference form of (5-1) will be taken as 


- w" w" , - w" , 

J 1 = _ u -J±i_ izl 

At 2AZ 


. + V 


w" - 2W" + w" , 
J+i J 3-1 

(AZ)^ 


(5-2) 


The time difference is forward, the others are centered. The convecting 
velocity U is constant in time and space. 




Linear Stabilit'' 


An_alyses 


a) Method of Positive Coefficients 

This is a simple criteria where the equation is rearranged and the 
coefficients of each W terra examined. If all coefficients are posi- 
tive, the equation is stable, according to Forsythe and Wasow (18) » 
Rearrangiag (5-2) gives . 



^.( 5 - 3 ) 


Note the appearance of a Courant number, UAt/AZ, in two of th*e coeffi- 
cients. The conditions which lead to stability are foimd from the coef- 
ficients in the brackets. For each W these are 
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'5+1' 


(5-4) 

W" : 
3 

it < 

(5-5) 

TT^ 

U > - " 
- AZ 

(5-6) 


An equivalent equation to (5-4) and (5-6) is 

■ ^ ^ 


(AZ) 


combining this with (5-5) leads to 


at < -^ 
u 


Furthermore, if (5-4) is rearranged to give 


AZ 1^ 
2v ^ U 


and this is used in (5-5) , the result is 


< 1 
AZ 


(5-7) 


(5-8) 


(5-9) 


(5-10) 


which is the Courant condition. Equations (5-5) and (5-8) describe the 
restrictions on At, while (5-4) and (5-6) show the limits of |u| as 
a function of v and AZ, Independent of At. A large diffusion coef- 
ficient or small mesh is necessary to permit a usable velocity range. 

A computation for an inviscid fluid (v = 0) would be unstable. This 
has been verified by Cheng (11) and others for this finite difference 
s cheme . 

b) Method of Discrete Perturbation 

This method provides some insight to stability phenomena by pre- 
suming the solution is at steady state, then locally imposing a 
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perturbation of W at a point and examining the requirements which 
prevent the perturbed value, W* , from becoming unbounded. If is 

applied at point (j) , and the finite difference equation is written at 
point (j + 1) to generate information in the convection term, 


'^i+1 i+1 


C2-K+“’). ^ (»" ^ "') 


To isolate the behavior of the perturbation, assume the steady state 
solution gives = 0 for all j <> Then 

yH+l 

i+1 „ W , W 

For stability to be assured, the response of the system to the normal- 


ized perturbation must be 


„"+i 

<1 

w' — 


This means 


1 „ At , At . 

(AZ) . 


The right inequality specifies static instability bounds. 


At < 


2 AZ 


Positive At occurs if U > - 2v/AZ. This is the constraint (5-6) 
which arose in the positive coefficient analysis. The left inequality 
in (5-lA) specifies dynamic instability bounds, and it is also satisfied 
by (5-6). 
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■ If the entire analysis is repeated at (j - 1) > the restrictions 
which arise are 


- 1 ^ - U 


At 

2AZ 


+ V 


At 

(AZ)^ 


< 1 


(5-16) 


or 


At :< 


AZ 



(5-17) 


This is satisfactory if U ^ 2v/AZ, which is relation (5—4). Thus the 
analysis gives the same restrictions on |u| as the positive coefficient 
analysis . 

. Equation (5-15) may be examined under the restriction Ju] j< 2v/AZ 
It is seen that the minimum upper limit on At occurs, when U = 2v/AZ> 
and the restriction (5—5) is the result. Hence the discrete perturba- 
tion method gives identical results as the positive coefficient method. 

' Equation (5-5) can also be produced by the discrete perturbation method 
using two other means; a , zero overshoot assumption and an analysis of 
perturbations that are oscillatory along Z rather than located at one 
'.point. ’These alternate approaches may be found inRoache (45) or the 
original papers. ' ; . 

c) Karplus' Method of. Electric Circuit Stability . 

■ A method that is simple to use is the electric, circuit analog of . 
Karplus (34). He noted that the current distribution of a network of 
electrical resistors arranged in a .regular pattern could be written as 
a finite difference equation. Conversely, the finite difference equa- 
tion could be presumed to have an electric circuit analog. Then 



concepts of circuit theory that deal with electrical instability can be 


applied to finite difference equation instability. 

Kirchoff's voltage law expresses the current of loop n, j in 
terras of currents in adjacent loops. 

(5-18) 


The notation here is conventional electric theory notation, R being re- 
sistance and i being current (not to be confused with the index nota- 
tion of the fluid dynamic equations) . The resistance network is stable 
if a current in a loop dies out after excitation is removed. 

Application to finite difference equations is simple. Arrange the 
equations in the form of (5-15) , where j is a bounded space coordin- 
ate. If all coefficients (corresponding to R 2 , etc.) are positive, 

the equation is stable. If some coefficients are negative, the equa- 
tion is stable if the algebraic sum of all the coefficients is negative. 
Rearranging equation (5-2) and adding and subtracting the term 
leads to 

(2v - UAZ) - W^) + <2v + UAZ) (w"_^ " = 0 

(5-19) 

The first and second coefficients are positive only in the range pro- 
scribed by inequalities (5-4) and (5-6). However, the third coefficient 
is always negative. Invoking Karplus' second rule for stability, 

2 

(2v - UAZ) + (2v + UAZ) - < 0 (5-20) 


1 



which leads to (5-5) . Thus the method of Karplus gives identical re- 
sults to the other methods presented thus far. 


d) Method of Von Neumann 

This method was mentioned in the introduction and reference (40) 

i 

was cited. It is the most widely used and has been expanded and modi- 
fied by many researchers. The method presumes that the solution to 
the linear partial differential equation is written as an infinite 
Fourier expansion. The growth or decay of a typical component is 
studied to determine stability bounds. 

Again start with equation (5-2) . The Fourier component is 

W? = (5-21) 

3 

where the wave number has been related to a phase angle t . The 

quantity i is the square root of minus one. Substituting this into 
equation (5-2) gives 


n+l^ljx ^ _ Ml 

2AZ 


+ ^ _&1_ (gn^l(j+l)T _ (5-22) 


(AZ) 

Some manipulation and trignometric substitution gives 


.n+1 


1-2 — ry (1 - cos t) - iU sin t 
(AZ) 


= HS” (5-23) 


H is a complex amplification factor whose modulus H must be j<l for 


stability. If this restriction is applied, conditions (5-4) and (5-6) 
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again result. Examination of (5-23) indicates that (5-5) applies, and 
also that U ||- < 1, which is the Courant condition. 

As the problem dimensionality and the number of time level in- 
creases, the mathematics becomes more complex. The amplification fac- 
tor H is then a matrix whose eigenvalues must be ^1 if stability 
is to be possible. Burstein (9) illustrates the problem for a realis- 
tic set of unsteady equations in two coordinates. 


e) Method of Hirt 


Hirt (29) has provided a heuristic approach for analyzing sta- 
bility. The Taylor series for terms in the finite difference equa- 
tion (5-2) are written. For example, 

= w" + AC ^ + 0[(AC)3] (5-24) 


W" , = W" + AZ II + ~ + 0[(AZ)3] 

3+1 3 . j ^ . 


(5-25) 


W“ , = W" - AZ ll" + 0[(AZ)3] (5-26) 

3-1 j . 3 


The time difference in (5-2) is contained in (5-24) , the convection dif- 
ference is gotten by (5—25) minus (5—26) , and the diffusive second dif- 
ference by (5-25) plus (5-26) . 

If these series are substituted into (5-2) and indices are dropped, 
the result is 

H + 0[(AC)2] = -uH+ v-^+ 0[(AZ)3] (5-27) 
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Omitting the higher order terms and rearranging gives 


1 ^ U ^ ^ Q 

vat vaz- 


(5-28) 


This is a hyperbolic equation with characteristics +/At/2v whxch mark 
off a domain of dependence as discussed in the introduction. The dif- 
ference equation also has a domain of dependence since data at a 

point (j) is propagated over the time increment At to the neighboring 
spatial point (j + 1) • Thus the domain of dependence of the difference 
equation is delineated by lines of slope ±At/AZ, This domain of de- 
pendence must contain that of the partial differential equation accord- 
ing to Courant, Friedricks, and Lewy as discussed in the introduction 


of this thesis. Then 


At / At 
AZ - ^ 2v 


(5-29) 


which is the same as restriction (5-5). 


Another condition of stability is found by differentiating the ori 
ginal partial differential equation with respect to time and reversing 


the order of differentiation. 


_L = u 

at Ut/ ^^2 " az \at/ 

N a i* ' 


(5-30) 


Now the original equation is substituted into the time differentials on 
the right hand side, and the resulting spatial differentials are ex- 


panded. 


a^w „2 a^i . 2 a^w 

— X = U — y - 2Uv — T + V — A 

at az az az 


This is substituted in (5-28) , and the third and fourth derivatives 



dropped because (1) they are usually small, and (2) the second spatial 
derivative is the one associated with diffusive damping (or driving) . 
Rearrangement of the resulting equation gives 


^ ^ Tl ^ + 

at 3z 


V - U 


2 ^ ] 3_W 

2 ; 3z2 


(5-32) 


A positive diffusion coefficient smears a perturbation in W. If the 
diffusion coefficient is negative (physically impossible but not math- 


ematically impossible) , the perturbation would concentrate and grow. 

Thus for stability to be assured, 

V - ^ > 0 (5-33a) 

or 

At < % (5-33b) 

U 


This result is the same as (5-8) . 

Although constraints (5-4) , (5-5) , and (5-6) may be combined to 
give (5~33b) , the converse action may not be taken. There is no way to 
extract (5-4) and (5-6) from (5-5) and (5-33b) , unless the Courant con- 
dition (5-10) is used. The first restriction on At also used the 
"domain of dependence" concept. 

f) Application of the Various Methods 

As the preceding developments showed, all methods gave the same 

I 

results except that Hirt's analysis did not yield restrictions on ju| 
without assistance from the Courant condition. The example chosen to 
illustrate the methods is simple. It can not be concluded that all the 
methods would give identical results for a complicated equation. 



The method of positive coefficients is simple to use but can po- 
tentially omit some restrictions. The perturbation method becomes 
quite ponderous with two dimensional equations. The electrical circuit 
analog by Karplus is relatively easy to use. Roache mentions an ambi- 
guity in the method but does not explain what this might be. Ghia, 
Torda, and Lavan (22) used both the Karplus and Von Neumann analyses to 
determine the stability limits of equations describing steady coaxial 
flows. The x'esults were identical and the Karplus method was claimed 
easier to use. 

The method of Von Neumann is probably the most widely used because 
It is well grounded mathematically and conceptually clear. However, 
finding the eigenvalues of the amplification factor can involve exten- 
sive computation. It is also a linear analysis and strictly applicable 
to Cartesian coordinate systems. 

Hirt^s analysis of truncation errors becomes ponderous with com- 
plex equations. It has predicted regions of instability with success. 
More important, it suggests a means for removing some of them, which is 
shown later. 

Application of these methods to non-linear equations is done by 
assuming that the equations are locally linear over small time-space 
increments. Then stability becomes a point-to-point matter. Mathemat- 
ical bases for non-linear analyses are lacking. Of the listed methods, 
those of Karplus and Hirt have the least restrictions, hence the poten- 
tially widest applicability. It can be expected that these two methods 
will be used more frequently in the future. 



C. The Use of Hlrt’s Truncation Error Analysis 

The words ’’finite difference approximations" describe the non- 
linear algebraic equations which are solved on the computer. These 
equations approximate the partial differential equations which de- 
scribe the fluid flows o The deviations are due to the casting of a 
finite sized mesh over the continuum of interest and the replacement 
of equations valid at a point with equations applied over discrete 
intervals. The approach of the discretized solution to the true point 
solution as the interval approaches zero is the problem of convergence. 
Concern about this problem often overrides another consideration: the 

solution obtained is further removed from the desired solution by 
truncating the infinite Taylor series which are used to construct the 
finite differences. The truncations of the series are necessary for 
practical application, but they introduce errors of accuracy which may 
stabilize or destabilize the solution. Hirt’s stability analysis quan- 
tifies the truncation errors. 

An examination of equation (5-32) illustrates the result of the 

2 

2 3 VJ 

truncation analysis. An additional term -U — ^ plus higher order 

differentials not shown are present in addition to the original partial 

differential equation. Furthermore, the error is always negative in 

sign, hence destabilizing. In fact, although attempting a numerical 

2 

solution with At <. 2v/U • as specified by (5— 33b) may give a stable 
solution, the second order error Is present for any finite At. 

Harlow and Arasden (25) suggest that the error may be removed by 
including diffusion terras identical in magnitude to the errors but of 
opposite sign in the finite difference equations. For example, based 



on the result (5-32), the coefficient v in the finite difference 

equation (5“2) should be replaced by (v + and the error is 

automatically removed. Note that the error contains U which was 

2 

held constant for this example. If U varied through time and space, 
the correction must be calculated at each time level and uniquely at 
each grid point. But (25) first introduces these as partial deriva- 
tives in the original differential equations. It seems more appro- 
priate to start with the original equations and introduce the correc- 
tions after the errors have formed in series truncation. This also 
avoids the insertion of corrections on the corrections. 

The application of Hirt*s truncation error analysis to the con- 
tinuum equations is Illustrated by an example of the one dimensional 


unsteady equations for mass and mementum, 


where q is an artificial dissipation as described in equation (2-3), 
Only the stability of the finite differenced mass equation is examined. 
This is forward differenced in time and uses a centered space differ- 
ence first explicitly, then implicitly. 


The explicit form is 


n+1 n 

^3 ~ -^-1 .= - 

At 


(PU)^^, - -^1 


2aZ 


The left side is in a rearranged Taylor series 

n r\ ■ 


n+1 


At 


i = ^ + ^ . ( At. ) . 


Dt 


2 2 

at 


at‘ 


(5-36) 


(5-37) 


The right side is 
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(p«>i+l - 


3(pU) (AZ)^ 3^(pU) 1 ... 

2AZ 


9Z 6 3 _ 

^ 9Z 


(5-38) 


All the above differentials are evaluated at n and j . Substituting 
these two equations into (5-34) and discarding terms higher than 

0[At, (AZ)^], 


iP + Ai = 3(pu) (AZ)^ 3^(pU) 

3t 2 3^2 - - 3Z - 6 3^3 


(5-39) 


The second derivative with respect to time is found by substituting the 
mass and momentum equations 



9(pU)V 

} 


9Z 



(5-40) 


Then the momentum equation is inserted in the brackets after using 


iZ. = iz. iP 7T 9p 

az 3p 9Z ^ 9Z 


(5-41) 


where A is the square of the isothermal speed of sound. Performing 
the spatial differentiation and retaining only the terms with the dif- 
fusion form, the result is 

^ + A) (5_42) 

9t az 


Likewise 


a^(pU) 


9Z‘ 


9Z^ 


(5-43) 


The final result is 


^ = 9(PU) + 

at ~ 9z 


At 

2 



+ A) — 


(AZ)^ ZZ 
2 9Z_ 



(5-44) 
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An examination of the diffusive error shows that the first terra is 


always negative, its magnitude increasing with At. The second term 
depends on the sign of 9U/9Z, and a flow accelerating down a tube is 
destabilizing. The general conclusion is that the explicit finite dif- 
ferencing should destabilize as At increases, and this agrees with 
experience. 

The implicit difference form of the mass equation is 



(5-45) 


The right difference is a double expansion 



- - ^^2 - 


(U^ + A) 





(5-47) 


Except for this term, the rest of the analysis, is identical to that for 
the explicit formulation. The result is 


3£__ a(pU) , At ni2 i (AZ)^ 3U 
at ■ ■ 8Z Lz ^ ^ 



(5-48) 


The implicit and explicit truncation errors are identical except for the 
sign on the first term. However, this term is now always positive and 
thus stable for all values of At. The inherent stability of implicit 
methods is well known. Although the truncation errors are stabilizers, 
it would be advantageous to remove them (provided stability is main- 
tained) because they are errors. 
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example shows the power of Hirt’s method in identify- 

The ' 

n <teL truncation errors. Since the errors contain velocities, 
ing diffO^®''^ 

their spatial gradients, the physical problem may be ex- 


densitiesf / 

, rARfuns of flow that might cause instabilities. Hirt ex- 
amined ibt ^ 

hr IT order space differentials to predict unstable regions in 

amine d 

.y^rlon problems. The predictions were verified numerically. 

shock 

. stability was also successfully applied to a problem 

An analys.ls ^ 

through a sluice gate in a dam. Thus Hirt's theory is 
in numerical tests. 

substantiate® 

^ til fpensional ICE Truncation Errors 

D. The 

Xh discussed above were applied to the ICE mass and mom- 

and also to the species equations. The energy equa- 

jfped because, with mass and momentum established, there w 
tion was ^ 

stability problems in energy until the last few runs 

no indicat f 
of the 


was 


ViscbtJ^ 


^l|d diffusion terms are of higher order and are not ana- 
eless, the algebra is mountainous. The results for the 

lyzed. 

effbr analysis are listed below. The original partial dif- 

truncatioh 

f tl -t (OPDE) is on the left side of the equation. 
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Radial Momentum OPDE = 
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Axial Momentum OPDE = 


At 
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J ~(AZ)^ i£ 

i 4, 3Z 


3 V 

9Z^ 


,(5-52) 

Equations (5-50) and (5-51) omit the stabilizing correction which re- 
suits from outer iteration on I . The treatment of corrections for 
time derivatives in the species equation is uncertain and numerical ex- 
perimentation usually gave instability. Thus equation (5-52) includes 
only spatial truncation errors. 

Note that a terra in the mass equation has a coefficient (29 - 1) 
which determines the sign of the term. It is stabilizing for 6 > .5 
(implicit), destabilizing for 8 > .5 (explicit), and it vanishes at 
6 = .5 (time-centered) . The coefficient cp performs a similar func- 
tion in the momentum error equations. 

There is no contradiction that when 0 and cp = 1 and A -> <» 

i 

} 

for incompressible flows, an infinite diffusion error takes place. 
Instead this predicts the infinite propagation of pulses throughout 
the fluid, which is a basic assumption of the incompressible equations. 



The truncation errors in mass and momentum equations are removed to a specified degree by add- 
ing a corrector 3 as mentioned previously. The corrector 3 is the finite difference analog of 
the negative of all truncation errors except those with coefficients that vanish with time- 
centering. The 3 corrections follow in finite difference form and include the spatial second 
derivatives to be consistent with the equations of Chapter 4. The cell aspect ratio removes AZ, 
and coefficients are extracted where possible 
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(this equation (5-54) continued on next page) 
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(5-56) 

Since the error analysis is by nature approximate and, the correctors must themselves be fin- 
ite differenced, the use of the full correctors can potentially remove enough diffusion to desta- 
bilize the calculation. To avoid this problem, the collections of terms in the brackets { } have 


coefficients read as input into the computer program. The coefficients can be used in the normal 
sense, zero to full correction requiring coefficients in the range zero- to one.- But a number 
greater than 1.0 can be used. Then the amount greater than 1.0 is applied to the absolute value 
of the terms in the respective brackets { }. This provides a small amount of positive diffusion 


to move the problem away from a region of marginal stability. 
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As indicated by the indices, the corrections are explicit and vary 
spatially. The computing time and storage for the corrections are good 
investments if the method stabilizes the computations. As will be 
seen, this is often the case. 

Besides the 3 correctors, stability is assured by setting an up- 
per limit on At of 


1 p (AR)^(AZ)^ 
(AR)^ + (AZ)^ 


(5-57) 


This is a two dimensional analog to equation (5-5) . Smaller values of 
At were always used in practice, because numerical trials indicated 
that they were needed to provide good resolution of the time dependent 
aspects of the solutions. 

The results of the numerical tests will be presented and discussed 


next. 



Chapter 6 


NUMERICAL RESULTS AND DISCUSSION 
A. Introductory Comments 

This chapter presents the results of a sequence of numerical tests 
of the basic ICE algorithm and its modification and extension. This 
includes the addition of outer iteration using all first order 
terms in the hybrid function, the addition of the 3 stability correc- 
tors, and the inclusion of multispecie diffusion and chemical reaction. 
The numerical solutions are compared with analytical and other numeri- 
cal solutions where possible. New transient and steady state solutions 
are shown. 

The sequence of problems solved proceeds in the direction of in- 
creasing complexity. Initial tests were performed on three transient 
problems that were essentially one space dimension in nature. Thus ap- 
pearance of significant quantities in the second spatial dimension 
would indicate errors in the computer code or a failure of the algo- 
rithm. Both incompressible and fully compressible problems were run. 

The first two-dimensional problem was one describing the boundary 
layer buildup in the entrance region of a tube after flow is abruptly 
started. Attempts at calculations of transient coaxial flows led to 
major instabilities. This prompted inclusion of the 3 truncation 
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error corrections with dramatic improvement. Numerical experiments 
showed the advantages of the ADI method in inverting the P matrice, 
and this was adopted. 

The addition of multicomponent capability caused new stability 

I 

problems which were treated by developing an implicit solution of the 
species equations. Finally chemical reaction was included. Solutions 
for dilute component reaction were run without difficulty. Later com- 
putations of reacting flows with strong coupling between chemical re- 
action and the fluid dynamics showed serious instability which could 
not be treated within the scope of this effort. 

The boundary conditions for each problem are discussed briefly as 
a supplement to the detailed presentation in Chapter 4. Values of time 
step size, grid size, dimensionless groups, and so forth are found in 
Table 1. 


As noted in Chapter 4, the solution accuracy was measured by the 
error in the mass conservation equation over one time increment. This 
in turn is controlled by the convergence of the P iteration. The 
convergence is tested by 


2 



E 


( 6 - 1 ) 


The exponent on e specifies the decimal place on P which must con- 

~ -3 - 

verge, regardless of the exponent on P. Thus if e = 10 , P must 

converge to three decimal places, such as 2.345x10 

-4 -6 

used varied from 10 to 10 , 


Generally e 



B. Computer Facilities and Computer-Draym Plots 


The solutions were carried out on the NASA Lewis Research Center 
IBM 360/67 computer. This is a time sharing system (TSS) , using vir- 
tual memory and a paging system to locate and move data in and out of 
core storage. The Lewis computer is duplexed with two central process- 
ing units (CPU) and a combined core storage of 2.5 million bytes (4 
bytes per word). Virtual storage essentially provides unlimited stor- 
age during execution. 

The computations were run in double precision, giving approxi- 
mately 13 decimal places of significance. The time sharing mode was 
employed to permit periodic interruption and examination of the pro- 
gress of the solution. During the interrupts » valuos of any variable 
could be displayed on the terminal, and certain operating parameters 
such as the time step size could be changed. Due to the time sharing 
mode, CPU run times cited herein are approximate. 

Output was written into datasets during the run which were dumped 
onto the IBM 1403 printer and/or onto a 9 track tape after the run was 
done. The tape was later read into a plotting program which used a 
set of library subprograms to generate plots on a CDC Model 280 cathode 
display unit. The video plots were photographed by a 35 mm single 
frame camera, and plots were made directly from the film. The basic 
library subprograms are described by Kannenberg in reference (33) . 

The dependent variable data taped for plotting were triply sub- 
scripted to denote R, Z, and t values. Plots were made in the time 
sharing mode by first selecting a value for one of the three independ- 
ent variables. The plotting program then arranged the appropriate data 



to form a two dimensional array and fitted the array to a surface using 
a procedure by Akima (1). This surface of dependent variable values 
could be projected as a three dimensional plot using Canright and 
Swigert^s subprograms (10). The surface could be sliced horizontally 
to produce contour curves plotted by a routine by Lawson, Block, and 
Garrett (36). Slices through the other two directions produced X-Y 
type plots. 

A pictorial plot could be made to display the total velocity field 
at a fixed time. The magnitude and direction of the flow is shown by 
the size and direction of arrows distributed over the R-Z field. As 
an alternative, only direction is shown to clarify the flow direction 
where the magnitude is small. The bases of the arrows locate the posi- 
tion of the velocity being represented. 

The plotting program was developed parallel with the numerical ex- 
perimentation. Thus the figures which describe the early computations 
are hand drawn, and the computer plots are used for the coaxial entry 
problems. It is emphasized that the Akima surface fit gives a very ex- 
cellent fit which essentially passes through all the input points. 

Thus the results are not smoothed by this fitting procedure, but rather 
made continuous. 

C. Startup of Incompressible Laminar Flow in an Infinite Tube 

This problem is characterized by axial velocities which are a func- 
tion of R and t only. No radial velocities occur. A constant up- 
stream pressure is suddenly imposed on a tube containing an incompress- 
ible fluid at rest, A linear axial pressure gradient results and is 



maintained. The fluid starts motion as slug flow, but the no slip wall 
condition causes transition to parabolic Poisieulle flow at large 
times. The analytical solution can be found in any standard fluid dy- 
namics or transport text such as Bird, Stewart, and Lightfoot (4). 

This problem was selected as a starting point because (1) the 
simplicity of the problem allowed easy tracing of program errors, and 
(2) the numerical results could be compared with the analytical solu 
tion and also with an available MAC numerical solution. To make the 
last comparison, the fluid was specified as blood at 310° K, p = 1.05 
gm/cm^, p = .04 gm/(cm-sec) . The Reynolds number was 205. Boundary 
conditions are straightforward, with Q ,= 0 due to Incompressibility 
giving the necessary velocities outside the Input, output, and wall 
boundaries. 

The results are shown in figure 4 as radial profiles of the axial 
velocity at select times. The solid line is the analytical solution 
and the ICE solution is shown as discrete points. Three cell mesh 
sizes were run to check the convergence behavior, which should be sen- 
sitive only to the radial solution. The cell aspect ratio was ad- 
justed to keep the tube length constant. The numerical and analytical 
solutions compare very well in time and space. Remarkably, even the 
4x4 grid gives a reasonable solution, although numerical values are 
somewhat higher at later times. The coarse grid has difficulty repre- 

f 

seating the velocity gradient near the wall. On the first time step, 

only the upstream input pressure was specified, and the P iteration 

produced the correct linear axial gradient. The P convergence cri- 

“8 

terion was set to the rather severe value of 10 , resulting in 



negligible radial velocities and continuity errors. , CPU times ranged 
from three to eight minutes. This test of ICE on a simple incompress- 
ible flow was quite successful. 

D. The Shock Tube Problem 

A fully compressible flow occurs when a diaphram separating high 
and low pressure compartments in a tube is abruptly removed. This 
condition exists when the diaphram of a shock tube is cleanly burst. 

The gas is air at 20^ C. A shock wave propagates downstream through 
the low pressure gas and a rarifaction propagates upstream. The con- 
tact surface, a density discontinuity Vijhich denotes the original posi- 
tion of the diaphram relative to the gas, moves downstream with the 
gas. Initially, the temperature is uniform. It rises at the shock and 
falls at the rarifaction. 

The fluid dynamics of a shock tube can usually be well represented 
as an axial transient flow. Only the formation and propagation of the 
waves to the tube ends was computed. The problem was formulated with 
no slip walls and reflective ends. A run with zero viscosity gave iden- 
tical results over the short time period considered (1/2 millisecond) . 
Inviscid theory can be used, to predict the positions of the various 

j 

waves and the levels that the variables should approach upon passage of 
the waves. 

The results of the primary variables, P, p, U, and I, are shown 
in figures 5a through 5d. CPU time for this run was 3 minutes. The 
pressure rarifaction should not be a discontinuous wave, but even so, 
both the rarifaction and the shock show considerable numerical smear- 
ing. The shock shows overshoot and the pressure trailing the 



rarif action indicates some numerical oscillations. No 3 corrections 
had yet been put into the numerical program. The oscillations are 
prominent in the density profile and especially in the internal energy 
profile. The energy oscillations are due in part to the computation 
being run with no thermal conduction. It was not realized at that time 
that thermal conductivity damped such oscillations as effectively as 
viscosity [see Harlow and Amsden (26)]. In addition, Hirt (29) predic- 
ted that numerical instability could arise in this region due to trun- 
cation errors associated with third and fourth order differentials. 

Such differentials are important due to the steep gradients in the 
shock tube problem. 

Despite these diff iculties, the waves at any position damp as the 
fronts moved away. The profiles of all variables show the proper qual- 
itative and quantitative behavior. The density profile has four levels 
due to the contact surface, and the internal energy rises in the com- 
pression zone and falls in the rarifaction zone. The positions and 
levels associated with the fronts as calculated by the ICE method com- 
pare very well with inviscid theory, even if oscillations are present. 

As discussed in Chapter 2, shock calculations are usually made with an 
added artificial dissipation. Such a term is not used in the present 
version of ICE, and some instability is to be expected. Thus the ap- 
plicability of the ICE technique to compressible flows seems well 
demonstrated. 

Additional numerical experimentation was performed. Figure 6 shows 
the effect of using a smaller time step size. The solid line is the 
same as figure 5a. The smaller At provides steeper fronts and better 
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stability. A small At offers greater resolution of temporal behavior, 
hence the steeper fronts. This is a valuable characteristic of the ICE 
method. The time step size is chosen to resolve phenomena of interest. 

Thus a small At is used to examine shocks, and a large At is used 

1 

for very slow flows where acoustic behavior is unwanted. A smaller time 

1 

step also provides a better computation for an impulsive start as in the 
shock tube problem. This affords greater stability later in the course 
of the computation, as shown in figure 6. 

The expanded hybrid function which retained the other first order 

term was also tested. The results are shown in figure 7. The 

, _ . _ . . . n+1 

solid curve is the same as figure 5a since no iterations on i 

means is used, and the extra term vanishes. No discernible dif- 

ference of the pressure profile is detected after one replacement of 
I . Remarkable stability improvement is seen, but the added numeri- 
cal diffusion smears the wave fronts, which is undesirable. For this 

n+1 

reason and because even one outer iteration on I almost doubles 

the CPU time, the expanded hybrid function was not used for the re- 
mainder of this study. Its use is recommended only as an aid in sup- 
pressing numerical instability. 

The effect of time centering the equations by setting 6 = cp = .5 
is shown in figure 8. Both implicit and time centered pressure profiles 
are shown for two times after the diaphragm is removed. As predicted by 

I 

Hirt’s stability analysis, time centering steepens the fronts at the ex- 
pense of stability. This is especially true for the region just behind 
the shock. However, the waves do die out at fixed Z positions. 



Longer calculations would be needed to verify whether or not the num- 
erical oscillations directly behind the shock front will grow un- 
bounded. 

As a final experiment, a one-dimensional 3 truncation error 
correction was inserted in the mass equati.on to see if the oscillation 
amplitude would decrease. Figure 9 displays the results of a time 
centered test. The exact correction did not affect the oscillations, 
but adding four times the absolute value of the correction cut the 
perturbations in half. Such a massive correction is unjustifiable 
theoretically, but it did show the nature of the 6 corrector. Note 
that only the unstable region of the profile was affected. The shock 
and rarifaction fronts are the same, as are the levels behind them. 

To properly stabilize the shock tube calculation, mass, momentum, and 
energy correctors are necessary, including the important higher order 
differentials. 

E. Incompressible Tube Flow with an Oscillatory Upstream Pressure 
Perturbation 

This problem was used to test the ICE program with oscillatory 
flow. A tube holding an incompressible fluid is subjected to an up- 
stream axial pressure which has mean and oscillatory components. The 
oscillatory component has an amplitude which is 10% of the mean com- 
ponent so no net flow reversal occurs. However, if the mean flow is 
subtracted from the total flow, the resulting velocity perturbations 


do reverse direction. 



An analytical solution for the steady cyclical state of thxs prob- 
lem has been carried out by Uchida (50). The a^ial velocity is assumed 
independent of Z, making linearization possible. The analysis shows 
that as the frequency of the pressure oscillation increases* the velo- 
city oscillations act more like oscillating plug flows. 

The boundary conditions for the numerical solution of thxs problem 
are the same as for startup of incompressible flow in an infinite tube. 
The exception is the oscillatory upstream pressure. The numerical sol- 
ution was run first by assuming that the flow was already at the steady 
cyclical state. The initial condition on axial velocity was taken from 
Uchida, and the computation was carried out for a few cycles to allow 

comparison with Uchida 's solution. 

The results are shown in figures 10 and 11 for dimensionless fre- 
quencies of 3 and 10 and a fractional pressure perturbation of 0.1. 

The fluid was air at 45^ C. The ordinate is the velocity perturbation 
amplitude that is superimposed on the mean flow, normalized by the 
fractional pressure perturbation impressed on the flow. A comparison 
of figures 10 and 11 indicates that the lower frequency produces an 
oscillatory flow which is strongly affected by shear stresses, whereas 
the higher frequency causes a flat profiled, plug-type flow that is 
dominated by inertia effects. In both figures the numerical and ana- 
lytical solutions compare well, but for a dimensionless frequency of 
10, the numerical solutions near the wall lag slightly. 

There are some errors in producing the plots. The ICE program 
calculates the total velocity including the mean and perturbation. 



The steady state Poisietille solution, calculated from another computer 
program, is then subtracted from the total to give the velocity per- 
turbation. Normalization by the fractional pressure perturbation causes 
a multiplication by 10. Thus an ordinate value of ,01 on figure 11 ac- 
tually represents only a 0,1% variation of the total flow. Therefore 
a small difference generated in processing the numbers gives a sizeable 
deflection on figure 11, and in fact the analytical and numerical solu- 
tions compare very well. 

Further experiments on convergence showed that a reduction of grid 
size from 20 x 5 to 10 x 5 gave a poorer comparison between analytical 
and numerical solutions for the lower frequency. Evidently a AR near 
.05 is necessary to represent boundary layer effects. Reducing the 
time step size from ir/SO to ir/60 improved the higher frequency sol- 
ution, but a further reduction in At offered little gain. 

An extension to the oscillating flow problem was made by starting 
with the flow at rest. The upstream pressure was suddenly raised to 
the higher oscillating value, coupling the normal laminar startup with 
the oscillatory flow startup. A run starting from rest and continuing 
until the steady cyclic state was reached took 15 minutes of CPU time. 
The velocity perturbations were found by subtracting the transient 
mean flow predicted by an analytical solution. 

Figure 12 shows a velocity perturbation profile at the same cycle 
time, 2niTt , for a reduced frequency of 5. The oscillatory component 
almost reaches the cyclic solution within one cycle. The steady cycli- 
cal numerical values are slightly high. As discussed before, the 



ordinate scale is expanded » and the constant difference between the 
numerical and analytical values along the tube radius suggests a small 
error in data reduction. 

Figure 13 shows the final cyclic solution which proceeded from a 
flow starting from rest, A number of cycle times are represented. The 
comparison with the analytic solution is good. All numerical values 
again are slightly high, indicating a data processing error. In con- 
clusion, the ICE method handles oscillatory flows quite well provided 
that the grid cell size is small enough (AR = -.OS) and a suitably 
small time step is chosen to give adequate transient resolution. 

F. Transient Incompressible Entry Tube Flow 

The entry problem is dependent on two space dimensions. A uniform 
velocity is abruptly applied to the entrance of a tube filled with an 
incompressible fluid initially at rest. The fluid behaves like plug 
flow at first, but a boundary layer begins to build up. The boundary 
layer trails from the entrance edge of the tube. At steady state the 
uniform input flow changes to Poisieulle parabolic flow for a suffici- 
ently far downstream position. The steady state solution to this prob- 
lem has been treated by Hornbeck (32), and Friedman, Gillis, and Liron 
(19), among others. 

The numerical version of this problem is considerably different 
from the previous test problems in another respect. Previously, the 
pressure condition was specified and this provided the driving force. 

In this and the remaining problems, the input flow is specified. -This 
flow drives the fluid through the tube and the proper pressure field is 



computed to accelerate and turn the internal flows. The momentum equa- 
tion is applied at the input boundary to compute the pressure gradient 
across the input. Thus the mean value at the input can "float*’ during 
the P iteration until the entire pressure field has the proper curva- 
ture. 

To test the ability of the P iteration to give the correct pres- 
sure field, an artificial problem was run as follows: the incompress- 

ible fluid is initially moving through the tube in axial plug flow. At 
t = 0, the entrance and exit are abruptly blocked. By the end of one 
At, the fluid should be essentially stopped. The test was run with 

free slip walls. In one At = 10 the flow was reduced from 1.000 to 
“3 

less than 10 , When the test was rerun with a no-slip wall, the bulk 

flow was again essentially stopped. But the asymmetric boundaries (no- 
slip at the wall and free slip at the centerline) caused a very weak 
eddy circulating down the axis and up the wall. Although trivial, this 
result is not physically inconsistent. The test of the P iteration 
was considered a success. 

The results of the entry flow problem are shown in figures 14 
through 18 for air at 45^ C. Figure 14 shows the steady state axial 
distribution of the axial velocity at several radii. In Hombeck’s 
paper, velocity values are given for different radii, but linear in- 
terpolation can be used to give check points at R = ,05 and .95. 
Agreement is good. The interpolation of the points at the lowest Z 
position is the least accurate, and those points show the most disa- 
greement. Since a horizontal profile means that the flow is constant 



with length, the figure shows the growth of the steady boundary layer 
toward the tube centerline as the flow progresses downstream, 

Figure 15 is a plot of the steady-state radial profiles of axial 
velocity at various Z positions. The transition from the flat input 
velocity profile to the parabolic output profile is clearly seen. Much 
of the transition takes place near the input, Friedmann et al. (19) 
have observed that near the entrance, the profiles show a maximum which 
does not occur on the centerline. This effect is seen on the Z = .667 
profile. Friedmann et al. attribute it to the fact that the leading 
edge of the tube propagates pressure signals upstream so the flow be- 
gins to turn before coming to the tube. This is more predominant at 
the low Reynolds numbers. An input boundary condition cannot describe 
these complex upstream effects. If the edge wall boundary condition is 
set so that the constant input velocity extends to R = 1.0 instead of 
R = .95, exactly the same solution results. 

The radial flows at steady-state are shown in figure 16. A pres- 
sure spike develops at the leading edge of the tube to turn the flow 
toward the tube axis. The radial velocities decay rapidly with length 
and vanish where the flow is fully parabolic. At Z = ,33, the radial 
velocity has a maximum magnitude which is 13% of the input axial 
velocity. 

Transient axial velocity profiles are shown in figures 17 and 18. 
Steady state is achieved quite rapidly near the input boundary and 
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near the wall. If a plot like figure 18 is constructed at Z = 20, 
the resulting profiles are almost identical to those of figure 15. 



The ICE method works quite well for the entry problem. It can 
provide additional information on radial flows and transient flows that 
simpler analyses cannot provide. CPU time was 26 minutes. 

G. Stabilization of Coaxial Flow Calculations by the g Truncati^ 
Error Corrections 

One of the major goals of this study was to incorporate multi- 
specie flows. Successful computation of coaxial entry flows was an 
essential step to that end and a worthwhile goal in itself. The coax 
injector has been a standard mixing device for some time. A number of 
studies of steady-state flows such as Ghia et al. (22) and Weinstein 
and Todd (54) have supported conceptual designs of gaseous nuclear roc- 
kets. Flow recirculation is possible if the ratio of the center tube 
and annulus velocities becomes very large or very smallo This has been 
experimentally studied by Warpinski, Nagib , and Lavan (53). To this 
writer's knowledge, no numerical studies of transient or short tube co 
axial flows have been published. 

Besides varying the input flows, two extremes of tube length sug- 
gest themselves. An extremely short tube allows resolution of the 
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flows very near the entry point. . This can not be done for long tubes 
due to the limitation on the number of mesh cells which will give a 
reasonable computation time. The other extreme is a long tube of suf- 
ficient length such that the output flow is parabolic. 

Wake effects from the boundary separating the two entry flows have 
been studied by Paris (41) for parallel plates. Seider (47) was unable 
to use a mesh aspect ratio greater than .05 without incurring 



instability in this computation of tube flows with coaxial parabolic 
entry. He attributed this to wake problems. 

A short tube problem was attempted for air at 45*^ C, with an input 
velocity ratio of 2.0. The fluid is initially at rest and is subjected 
to a step coaxial input at t = 0. The center and annular flows were 
each uniform. The tube length was equal to its radius. A 20 x 20 mesh 
was used with square cells. This mesh is the largest that could be 
used with the available computer speed. Figure 19 shox-7S the cata- 
strophic instability which occurred when this problem was attempted. A 
long tube run was then tried with = o05. A smooth steady state so- 
lution was obtained, but the transient solution showed numerical oscil- 
lations which eventually damped. 

At this point the 3 corrections were added to the computer pro- 
gram. and the short tube problem was rerun. The coefficients on 
and 3,.^ = ^ (called 3,.) were set equal to 0 and 1.01, respec- 
tively. The results were remarkable. All numerical oscillations van- 
ished and the problem was computed to steady state. Figure 20 shows 
results which may be compared to figure 19 for t = .07 and .10, The 

scales on these computer drawn plots are* set by the graphics program 

■ • '\ 

and differ. It is seen that the stable portions of figure 19 compare 
exactly with the similar parts of figure 20. These results were most 
encouraging. 

H. Short Tube with Coaxial Entry - Velocity Ratios = 2 and .05 , 
Velocities = 10 and 20 cm/sec 

The next series of coaxial problems (Sections H, I, and J) were 
run using air at 45^ C as the single fluid. The coaxial runs were 



identical whether run as compressible or incompressible fluids. At 
these slow speeds the compressibility effects should be negligible, and 
they were. As mentioned before, the upstream pressure was computed by 

applying the momentum equation at the input. The downstream pressure 
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was fixed. Input and output density was computed using^ the equation of 
state. The problems were started at the time steps shown in Table 1. 

The time steps were increased throughout the run using the TSS mode of 
operation. The progress of the run was monitored to guide the in- 
creases on At. 

The formidable problem of presenting the results of these trans- 
ient, complex flows was aided by the computer plotting routines. About 
50 to 100 plots were made for each run. Many of these were difficult 
to interpret without extensive cross comparison. It was decided to 
show the transient results in a semi— quantitative manner using three- 
dimensional (3-D) plots at select times. The steady state plots are 
mainly radial profiles at select axial positions. 

Figures 21a through d show the axial velocity at several times for 
the velocity ratio of 2. The axes of perspective are given by the min- 
ature X-Y-Z coordinate system on the right. For all 3-D plots the Z 

axis denotes the magnitude lof the dependent variable, the , Y axis 
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points in the radial direction, and the X axis points in the axial 
direction. The maximum and minimum values along each axis are given. 
The scale of the figure changes from plot to plot. Viewing these fig- 
ures in the time sequence shows that initially the coaxial inputs pro- 
duce a uniform output. With the passage of time, the high center 



velocity and low annular velocity move toward the exit while trans- 
ferring momentum at their interface and at the wall. 

Figure 22a shows a 3-D pressure plot right after the flow starts, 
and figure 22b shows the pressure field at steady state. Note that the 
vertical scales differ, and in examining figure 22a, note that the 
pressure spike in the center of the input boundary points down. All 
the 3-D plots have no hidden lines. A strong gradient is set up at the 
inside wall of the annulus, hereafter called the annular edge. The 
gradient forces the high velocity center input to turn outward and 
raise the velocity in the annular region. At the same time the leading 
edge of the wall is forcing fluid toward the centerline. At steady 
state the flow field is established, and the fluid already is acceler- 
ated. Then a strong driving force is no longer needed and the radial 
pressure gradient is considerably weaker, as seen in figure 22b. 

The radial flows are so complex that it is Impossible to find a 
figure that can present them properly. In brief, the initial flow is 
mostly outward with the maximum at the annular edge. At steady state, 
the center tube radial flow is weakly inward and the annular flow is 
strongly inward, which decreases the radial gradient of axial velocity 
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between the two streams. 

The steady state radial profiles of the axial and radial veloci- 
ties are displayed in figures 23a and b for select axial positions,, 
Figure 23a shows the rapid dissolution of the steep velocity gradient 
separating the two fluids. This region of high shear stress promotes 
rapid momentum transfer. The complexity of the radial flows is seen in 



figure 23b. The wall is always moving the fluid inward, but there is a 
small outward flow near the entrance at R = .5 which is raising the 
axial velocity in that region. CPU time was 36 minutes. 

To further characterize the entry region for coaxial inputs , the 
short tube problem was run with the higher velocity entering through 
the annulus. Since the wall drag tends to force the fluid toward the 
centerline, the velocity ratio of .05 was expected to cause larger 
forces to be impressed on the fluid. This could make the numerical so- 
lution more difficult. When the problem was run with ~ 1.0, it be- 
came unstable at t = .16. Evidently the 3 corrector removed some 
stabilizing errors. Some numerical experiments were run increasing 3^ 
above 1.0, since this adds the absolute values of the error corrections, 
cancelling negative corrections, and improving stability. Tests were 
made with 3^ as high as 2.0, which changed the third significant fig- 
ure in velocity values after the computation had proceeded part way 
through the problem. A value of 3y =" 1.5 caused a maximum change of 
one digit in the fourth place. This 3^ value was used and the prob- 
lem ran to steady state (t = .26) successfully. 

The- results are shown in figures 24 and 25. Figures 24a through 
24 d are 3-D plots of the axial velocity. As with the previous problem, 
the initial response of the fluid to the .step impulse input is to move 
in plug flow. This is seen in figure 24a. Progressing from upstream 
to downstream, the axial velocity rises in wave along the tube center- 
line and falls in a wave along the annulus centerline. This condition 
is the inviscid solution to the initial conditions. As time progresses 
these waves convect downstream and the flow slants toward the centerline. 



Plots of the steady state velocities are sho^m in figures 25a 
and b. Although the maximum axial velocity in the annulus is increas- 
ing, the mass flow is decreasing. The only outward flow at any time in 
the problem occurs just downstream of the annular edge, and the pres- 
sure profiles show the wall and annular edge effects. About 30% of the 
way down the tube, the initial turning of the flow has essentially been 
completed. 

I. Long Tube with Coaxial Entry - Velocity Ratios = 2 and .05 , 
Velocities - 10 and 20 cm/sec 

The method was applied next to a long tube using cells twenty 
times longer than wide. This provides less detail in the axial direc- 
tion and also leads to smaller radial velocities, since the first com- 
puted value is already one tube radius downstream. These radial cross 
flows can cause nonlinear instability, so their lessening was expected 
to give favorable stability. 

Since the tube length is ten diameters , the exit flow should ap- 
proach a parabolic profile for the low Reynolds numbers of these prob- 
lems. The length of ten diameters is near the practical maximum for 
the computer used, due to speed and storage limitations. A lower as- 
pect ratio would be less accurate. If only steady state solutions 

were desired, the appropriate steady equations could be used with a 
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nume.rical marching technique and any length could be used. Ghia et al. 
(22) used this method to follow solutions for over 250 diameters down- 


stream. 



The results are shown in figures 26 and 27 for a velocity ratio of 
2. Transient runs are shown in the series of figure 26, The initial 
impulses convect down the tube, but they are overwhelmed by the bound- 
ary layer buildup in the long tube and associated flow Increase on the 
axis. The steady state values are shown in figures 27a through c. 

Full parabolic axial flow is almost achieved at Z = 20 , and the pres- 
sure field becomes almost linear with tube length after Z = 2. CPU 
time was 85 minutes for this run. 

No transient 3-D figures are shown for the long tube with an en- 
try velocity ratio of .05. Figures 21, 24, and 26 provide sufficient 
insight into how the flow develops. The steady state values are shown 
in figures 28a to c and are consistent with the short tube results. 

Due to the initially low centerline velocity, the axial velocity at 
Z = 20 is not yet parabolic, and the centerline velocity is only 90% 
of the final value. CPU time was 34 minutes. 

In summary, the ICE method with 3 stabilization allowed calcu- 
lation of transient coaxial -entry problem and short tube problems which 
were not previously available. Since these flows were quite nonlinear, 

the versatility and stability of the method is well demonstrated. 

\ 
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d. Center Jet Flow into a Larger -Tube - Velocity Ratio = 

Velocity = 20 cm/sec 

A complete parametric survey of velocity ratio, area ratio between 
the center tube and annulus, and Reynolds number was not run for the 
coaxial entry problem, nor was 'such an effort appropriate for this^^ 
study. However, recirculation zones represent another increase in 
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complexity of flow and thus are of interest to this study. Recircula- 
tion in coaxial jets was found by Warpinski and Nagib (53) to exist 
above velocity ratios of 8 for Reynolds numbers greater than 400. It 
was decided to run a coaxial problem with no flow in the annulus. 

This gives an infinite velocity ratio and is the same as a jet issuing 
into a larger diameter tube. A tube of intermediate length, five radii 
long, was chosen o Previous coaxial tests were made with the fluid as- 
sumed incompressible, then checked in part with an identical compress- 
ible fluid. The calculation described in this section was run to 
steady state for both compressible and incompressible Identical fluids 
and gave identical results. 

The transient solution is shown in figure 29 as pairs of diagrams 
which show the velocity field and the flow’ direction at four times. 

The figures labeled ’’Velocity Field" have arrows whose magnitude and 
direction refer to flow values located at their origin. The arrows 
are normalized to the maximum velocity in the field and that value is 
given at the base of the figure. Figures labeled "Flow Direction" use 
arrows whose lengths are independent of the flow velocity to show the 
direction of small magnitude flows. At t = .04 the local impulse of 
the jef is seen dispersed over the entire tube. But by t = ;1 a 
small amplitude recirculation zone was fo.rraed in the annular portion 
of the tube. * Figures (e) through (h) show the grbwth of the eddy down 
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the tube. Figure ' (h) shows that the jet has filled the tube at steady 
state, inasmuch as the eddy is contained within the tube with no back 
flow into the tube along the wall at the downstream boundary. However, 



figure 29g shows that most of the fluid flow is still in the center of 
the tube . 

The steady state velocity profiles are shown in figure 30. The 
negative axial velocities between R = .6 and the wall indicate the 
recirculation zone. No signs of instability occurred during the run, 
and the ICE method handled the recirculation flows quite easily. CPU 
time was about 80 minutes. 

K. Coaxial Parabolic Entry Flow with Specie Diffusion and Chernic^ 

Reaction 

The success of the stabilized ICE technique with all the problems 
previously described encouraged the incorporation of the species con- 
servation equations into the algorithm. The study by Seider (47) was 
taken as the comparison case. This author examined the steady flow of 
fully developed coaxial streams into a larger tube where the fluid was 
nitrogen with tracer quantities of hydrogen in the center jet and 
iodine in the annular jet. As the streams mix, hydrogen iodide is 
formed irreversibly. 

' The use of trace quantities decouples the- species equation from 
the mass momentum equations since negligible heat is. released and in- 
consequential density changes occur. Seider transformed the primitive 
flow variables to stream function and vorticity, and rearranged the 
two 'species equations so that the mixing without reaction could be 
calculated first, and the results used in a reaction equation. The 
latter technique is valid only for two-component reactions. 



The sequence used in solving the species equation in the present 
program was described in Chapter A and is applicable to multicomponent 
reactions. This method evolved from numerical experimentation. Ini- 
tially it vjas planned to solve the species equation explicitly over 
the full time increment, but this scheme was unstable. Then the equa- 
tion was made entirely implicit and solved repeatedly until the values 
converged. It provided more stability, but it appeared that the reac- 
tion equation was overshooting on each time step. Finally the algo- 
rithm was put into its present form with only the convective fluxes 
implicit and the diffusive terms explicit. The matrix is inverted by 
the ADI method and the time steps subdivided for more stability. 

Seider’s problem was run for the condition of total Reynolds 
number = 496 (N„ = 248). There were some inconsistancies in the in- 

put conditions which were treated by setting the pressure quite high 
to give .005 mole inputs of the tracers. The problem was run as an 
unsteady case with the parabolic entry suddenly impressed upon the 
tube whose contents were initially at rest. The initial fluid compo- 
sition within the tube was arbitrarily set as a core of nitrogen plus 
hydrogen and an annular cylinder of nitrogen plus iodine. After the 
problem came to steady-state, the reaction was "turned on" by reset- 
ting an index within the time-sharing cpmputer mode, and computation 
proceeded to the new steady-state. CPU times were difficult to esti- 
mate under these circumstances but probably ranged from one to two 
hours. 

The results are shown in figures 31 through 34. It is impos- 
sible for a 20 X 20 grid to exactly duplicate Seider's entrance 



condition because the axial velocity is not defined at the annular 
edge. Hence the value of U for Z=0 does not go to zero at the 
annular edge, and furthermore, the annular edge is located at R - .55 
rather than .563 which Seider used. Nonetheless, the axial velocity 
profiles appear almost identical to Seider *s graphical results. Fig- 
ure 31b shows radial velocity profiles, which Seider did not report. 

The results of the ICE computation of the mixing of the core jet 
were compared with Seider 's results for no reaction in figure 32. The 
comparison is excellent, giving confidence to both the total fluid 
dynamics and the species mixing. The results with reaction were less 
pleasing. Seider computed a fractional conversion of the hydrogen of 
.17 at Z = 20, while the ICE computation gave about .13. In the ab- 
sence of comparison with data, the relative accuracy of the two num- 
bers cannot be discerned. 

The steady state concentration profiles with reaction for ^ 2 * 

and HI are shown in figures 33a through c. Except for Z = 20, the 
curves in 33a and 33b look essentially the same since reaction is slow. 
Seider did not keep track of the hydrogen iodide reaction product in 
his calculations. Figure 33c shows the concentration profiles for this 
specie, and some interesting additional information is contained there. 
The peaks of the profiles shift to lower radius values with increasing 
Z up to Z = 8 because there are small but appreciable radial flows 
toward the axis over that length (see figure 31b) . The strange profile 
at Z = 20 is due to the longer residence time of the fluid near the 
wall. These fluid elements have more time to react provided that the 



hydrogen has reached the wall, which figure 33b shows it indeed has 
done between Z = 3 and 8. The effect of boundary layer drag on 
chemical conversion is also shown in the contour map of the HI con- 
centration, figure 34. The higher values and steeper concentration 
gradients in the upper right of the figure show the wall effect. The 
shift of the profile peaks toward the axis may also be seen, 

Seider reported that instability resulted when cell aspect ratios 
greater than .05 were tried. To show the superior stability of the 

present method, a computation with R . = . 2 was run and the results 

A 

are shown in figures 35 and 36. No stability problems ensued, the re- 
sults are consistent with those of the longer tube, and more detail 
near the injection point is available. The test was a complete 
success. 

L. Attempted Solution of Coupled Reaction and Fluid Mechanics 

At this point it was apparent that some intricate computations and 
parametric surveys could be made studying the mixing and reaction of 
small concentrations of reactants in recirculating coaxial flows. How- 
ever, it seemed more consistent with the rest of the study to attempt 
the last step, that of coupling reaction and flow by computing the mix- 
ing and oxidation of carbon monoxide with air. This problem was of in- 
terest to pollution, and the detailed chemical reaction steps had been 
studied by Brokaw and Bittker (8). They used a mixture representative 
of automobile exhaust with the assumption that the reactants were ini- 
tially well mixed. A global rate could be gotten from these calcula- 
tions (see Appendix B) . A similar mixture was used here and the 
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computer. These facts plus time restrictions caused the study to be 
terminated. However, the superior applicability of the method was 
demonstrated and it is this author's opinion that the method can also 
be applied to strongly coupled flows. 



Chapter 7 


CONCLUSIONS AND RECOMIffiNDATIONS 

1) The Implicit Continuous Eulerian (ICE) method has been shown to be 
applicable to transient, two-dimensional calculations of both high 
and low speed compressible flows and to incompressible flows . 

2) The inclusion of truncation error corrections based on Hirt’s sta- 
bility theory provided excellent stability behavior without dis- 
torting the numerical results. 

3) The stabilized ICE method permitted computation of coaxial entry 
problems which were previously impossible due to wake effects. 

4) The method successfully treated complex flows such as unsteady re- 
circulation zones. 

5) The addition of multicomponent mixing and chemical reaction was 
successful for flows without strong coupling between reaction and 
fluid dynamics. 

6) The expansion of the hybrid function to include outer iteration on 
the internal energy caused greater stability at the expense of ex- 
cessive numerical diffusion and computer time. The use of the ex- 
panded hybrid function is not recommended, 

7) The iteration of the pressure field using successive over- 
relaxation (SOR) and an alternating direction implicit (ADI) 
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technique gave identical results. The SOR method was faster fot 
i meshes with square cells while the ADI method was faster with long 
rectangular cells. 

8) The application of the method to problems characterized by strong 

i 

coupling between reaction and flow was unsuccessful. 

9) It is recommended that experimentation with the ICE method continue 
with flows strongly coupled with reaction. This includes (a) der- 
ivation and testing of a truncation error correction for the energy 
equation, (b) experimentation with time centering for compressible 
flows, and (c) use of larger grids. 



Table 1 - .Descrr 


Problem T* 

Type # Description Fluid °R 


■ 

Incompressible Startup in an 
Infinite Tube 

Blood 

310 

2 

Compressible Flow in a Shock 
Tube 

Air 

293 

3 

Steady Incompressible Cyclical 
Oscillatory Flow 

Air 

319 

B 

Incompressible Transient 
Oscillatory Flow 

Air 

319 

5 

Incompressible Tube Entry 
Flow 

Air 

319 

6 

Coaxial Entry in a Short Tube. 
Length=l radius. Center Tube 
Velocity=20 cm/sec. Annulus 
Velocity=10 cm/sec 

Air 

319 

1 

Coaxial Entry in a Short Tube. 
Length=l radius, Center Tube 
Velocity-10 cm/sec, Annulus 
Velocity-20 cm/sec 

Air 

319 

8 

Coaxial Entry in a Long Tube. 
Length=20 radii. Center Tube 
Velocity=20 cm/sec, Annulus 
Velocity«10cm/sec 

Air 

319 

9 

Coaxial Entry in a Long Tube. 
Length=20 radii. Center Tube 
Velocity=10 cm/sec, Annulus 

Air 

319 


Velocity=20 cm/sec 


ition of Computations 


P* D* M* I* 

^ 2^3 2 2 

(gra/cm sec ) gm/cm gms/gm-mole cm /sec 




1.050 

38.66 

1.206x10“^ 

29.00 

1.108x10“^ 

29.00 

1.108x10"^ 

29.00 

1.108x10'^ 

29.00 

1.108x10“^ 

29.00 

l,108xl0~^ 

29.00 

1,108x10“^ 

29.00 

1.108x10“^ 

29.00 


















































Table 1 - Descri 


Problem 

Type Description 


10 


Coaxial Entry in a Center Tube 
with Length=5 radii. Center 
Tube Velocity-20 cm/sec 
Annulus Velocity=0 cm/sec 


11 Coaxial Parabolic Entry in a 
Long Tube. Length=20 Radii. 
Center tube max. velocity - 
31-35 cm/sec with .005 moles/ 
cm^U2. Max. Annulus velocity 
s 27.95 cm/sec with .005 moles 
cm3 1 2 

12 Coaxial Parabolic Entry in a 
Long tube. Length=5 radii. 
Center tube max velocity = 
31.35 cm/sec with .005 moles/ 
cm3 H 2 . Max. Annulus velocity 
a27.95 cm/sec with .005 moles/ 

cm^ 1 2 


Fluid 



T* 

On 


319 


716 


716 


13 


Coaxial Entry in a tube. Length 
-5 radii. Center tube velocity^ 
20 cm/sec with air. Annulus 
velocity=10 cm/sec with temp- 
erature-1300®F, composition 
C0=.l, 0-**.l, C02=.l, H20=.12, 
N2=.58 


Air 

is 

Ref. 


530 






















lutations (Continued) 
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.2 
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.2 
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1 
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0 


.2 

50 
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.5 

.5 

0 

0 
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.2 

50 

9 

.5 

.5 
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n 

■ 

ni 

0 

0 
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0 
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20x5 

.05 
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■ 

BB 

0 
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0 

10x30 

. 

.15 

20 

14,15, 
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Table 1 - Description of Computations (Continued) 


Problem 


At 


AR 


RW 

cm 


sec 


CD 


Re 


Eu 


N 


SI 


Grid 

NRxML 


Lx Figure 

A cm # 0 0 


®MK 


11 

.10 

.05 

10.06' 

17.18 

1 

248 

7.2x10^ 

.586 

20x20 

.05 

201.20 


B 

1 

0 

1.01 


12 

.05 

.05 

10.06' 

17.18 

1 

248 

7.2x10^ 

.586 

20x20 

.2 

50.12 

35,36 

D 

B 

0 

1.01 

1.01 

13 

.01 

.05 

2 

12.5 

■I 

160.6 

5.43x10^ 

.160 

20x20 

.2 

10 

37 

B 

fl 

.99 

.99 

.99 


(1) This is based on the radius and mean velocity. 

(2) Centerline velocity used only for this case. Mass mean velocity used everywhere else. 

(3) This is the speed of sound. Dimensionless velocity then is Mach Number 
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Figure 3. - Basic flow sheet for the ICE algorithm. 















Axial velocity, U 



Axial velocity, U Pressure ratio, (P + P’l/P'* 



(c) Velocity profile. (d) Internal energy profile. 


Figure 5, - Profile for the shock tube problem, t - 0.5. 
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Axial position, Z 


Figure 8. - Effect of time centering on pressure profiles for the 
shock tube problem, I = 0. 125 and 0. 5, 



Axial position, Z 

Figure 9. - Effect of the mass truncation error correction, |3j^, 
on a- density profile for the shock tube problem. The calcu- 
lation is time-centered, 6 = ^ = 0. 5, 



Relative axial velocity perturbation, Relative axial velocity perturbation, UV(PVP;y^^l^J> 
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Figure 10. - Radial distributions of the axial velocity per- 
t urbatlo ns for oscillatory incompressible tube flow, 
y27Tf/v = 3. 



Figure 11. - Radial distributions of the axial velocity per* 
turbations. For oscillatory incompressible tube flow, 

R » 10. 




Relative axial velocity perturbation, 

U’ /{p> Relative axial velocity perturbation, U' /(P' ^Pjv\EAN* 



Figure 12. - Radial distributions of axial velocity per- 
turbations f or sta rtup of oscillatory incompressible 
tube flow, ^27Tf/u R = 5. 



Figure 13. - Cyclic radial distributions of axial velocity 
perturbation s for transient oscillatory incompressible 
tube flow, ^27Tf/v R = 5, 



Axial velocity, U 









Axial velocity, 





Axial velocity, 







X/VUN= 0.0 XMAX == 0. lOOOOE 01 

YMIN= 0.0 YMAX = 0. 100(X)E 01 

ZM I N = -0. 11325E-05 ZMAX = 0. 16000E 01 




(a) t = 0. 002. 


XIV11N= 0.0 
Y/VUN= 0,0 
ZM1N = -0.83447E-06 


XMAX == 0. lOOOOE 01 
YMAX = 0. lOOOOE 01 
ZMAX = 0. 16036E 01 




(b)t = 0. 04. 


Figure 21. - Plots of transient axial velocity for coaxial entry 
into a short tube. Entry velocity ratio = 2. 0. 






XMIN= 0.0 XMAX = 0. lOOCKI 01 

YMIN= 0.0 YMAX -O.lOOOOEOl 

ZMI N = '0. 65565E-(^ ZMAX = 0. 16319E 01 



(c) t = a 10. 


XMIN= 0.0 XMAX = 0.100CK)E01 

YM[N= 0.0 YMAX = 0. lOOOOE 01 

ZM I N = -0. 89407E-06 ZMAX = 0. 16833E 01 



(d)t = 0.24. 

Figure 21. - Concluded. 




XMIN= 0.0 
YMIN= 0,0 
ZMIN= -0.37357E-07 


XMAX = 0. lOOOOE 01 
YMAX = 0. imm 01 
ZAAAX = 0. 14274E-06 



(alt = 0. 004, 


Z 

4rY 

X 


X/V\IN= 0.0 
YMIN= 0.0 
ZMIN= -O.11885E-09 


XMAX = 0, lOOOOE 01 
YMAX = 0, lOOOOE 01 
ZMAX = 0.98014E-07 



2 

^Y 

X 


(b) t = 0, 24, 

Figure 22. - Piots of the transient pressure field for coaxial entry 
into a short tube. Entry velocity ratio = 2. 0, 
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Radial position, R 


<bt Radial profiles of radial velocities. 

Figure 23, - Coaxial entry into a short tube, t = 0. 24 (steady statet, entry 
velocity ratio = 2.0. 


(alt = 0.002. 


XM I N = 0. 0 XMAX ^ 0. lOOOOE 01 

YMI N = 0. 0 YM AX = 0. lOOOOE 01 

ZM I N = -0. 65565E-06 ZMAX = 0. 12812E 01 



(bit = 0.05. 

Figure 24. - Plots of transient axial velocity for coaxial entry into a 
short tube. Entry velocity ratio = 0. 05. 




XMIN= 0.0 XMAX = 0. lOOOOE 01 

Y/VUN = 0. 0 YMAX = 0. 01 

ZM I N = -0. 59605E-(^ ZMAX = 0. 13113E 01 


/ 


(c) t = 0. 10. 


XMIN= 0.0 XMAX = 0.10000E01 

Y/V\IN= 0.0 YMAX = 0.100C»E01 

ZM I N = -0. 10133E-05 ZMAX = 0. 13325E 01 



Radial velocity, V Axial velocity, 
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(b) Radial profiles of radial velocity. 

Figure 25. - Coaxial entry into a short tube, t = 0. 26 {steady state), entry 
velocity ratio = 0.05. 


Pressure, 
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XMIN = 0. 0 XMAX = 0. 20000E 02 

YM i N • 0. 0 YM AX = 0. lOOOGE 01 Z 

ZM i N = -0. 10133E-05 ZMAX = 0. 16000E 01 



XMIN= 0.0 XMAX = 0.200ME02 

YMIN= 0.0 YMAX “0.10000E01 

ZM i N = -0. 47684E-06 ZMAX = 0. 17602E 01 v>" Y 



(b)t = 0.5. 


Figure 26. - Plots of transient axial velocity for coaxial entry 
into a long tube. Entrance velocity = 2.0. 






Axial velocity, U 






Pressure. P Radial velocity, V 
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(c) Radial profiles of pressure. 
Figure 27. - Concluded, 


Axial 




Pressure, P Radial velocity, V 
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Radial position, R 
(c) Radial profiles of pressure. 
Figure 28. - Concluded. 
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(b) Flow direction at t = 0. 04. 

Figure 29, - Transient velocity vector and flow direction figures for coaxial 
entry, center jet only. Velocity = 20 cm/sec. 




Dimensionless radial distance, 









6 








Dimensionless axial distance, Z, Maximum velocity = 4.002 
th I Ftcw direction at t * 2. 

Figure 29. - Concluded. 







Radial velocity, V Axial 
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(b) Radial profiles of radial velocity. 

Figure 30. - Coaxial entry, center jet only; t = 2. 0 (steady state). 


Radial velocity, V Axial velocity, U 
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(a) Radial profiles of axial velocity. 



Radial position, R 


(l>) Radial profiles of radial velocity. 

Figure 31. - Coaxial parabolic entry into a long tube with diffusion and 
reaction of trace species. 


Radial position, R 

Figure 32. - Comparison with Seider's no-reaction computation 
Z = 12, = 248, N 5 . = 0. 942. 




Concentration, C|^j Concentration, Cj Concentration, 





(c) Radial profiles of hydrogen iodide concentration. 

Figure 33. - Parat>olic coaxial entry into a long tube with diffusion and 
reaction of trace species. 



Concentration, Cj^j Axial velocity, 
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2.0 



- (a) Radial profiles of axial velocity. 



0 .1 .2 .3 .4 .5 .6 .7 ,8 .9 1.0 

Radial position, R 

(b) Radial profiles of hydrogen iodide concentration. 


Figure 35. - Parabolic entry Into a tube 5 radii long. Diffusion and reaction 
of trace species. 


Dimensionless radial distance, 



Temperature, 


155 



Figure 37. - Onset of instability In temperature profiles for the CO oxidation 
problem. 


Appendix A 


INVERSION OF THE P MATRIX 

The finite difference equation for the hybrid function P is 

given by equation (4-26) . This equation may be solved by several 

methods, one being simple relaxation. In this case the new values of 

P. . are found by using equation (4-26) and sweeping through the grid, 
I 

computing the (Q + l)th value of P from the Qth values surrounding 
it. After the entire net of (Q + 1) th values are computed they are 
substituted in the P matrix and the process is repeated. 

A variation is to control the convergence by multiplying the right 
hand side of (4-26) by a factor a while also adding a term which is 
'(1 - a) times the old value of P. If a = 1, the result is straight 
relaxation. If 0 < a < 1, the iteration is termed underrelaxation 
which converges more slowly and becomes more stable as a is made 
smaller. For overrelaxation , 1 < a < 2 and convergence is hastened up 

to a point, which for the problems run here was a= 1.8. At higher 

\ 

values of a, convergence becomes more difficult or impossible. At 
a = 2 the method is unstable. 

Another method which usually accelerates convergence is the imme- 
diate replacement with the new value of P. This leads to the func- 
tional dependency shown in (4-27) if the grid is swept through increas- 
ing i and j. Successive overrelaxation (SOR) with immediate 
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substitution was used up to the tube entry flow problem. At that point 
cells with lower aspect ratio were used and convergence began to slow. 
This prompted examination and use of another method. 

A modification of the alternating direction implicit method (ADI) 
by Brian (6) was used herein. It has been used by Schwab (A6) among 
others and appears to offer some stability and convergence advantages 
plus higher order accuracy. Briefly, the time step is split in half 
and the finite difference equation is written as a three level scheme. 
The equation for the first half time step is written with all the dif- 
ferences in one coordinate in implicit form. For example, given the 
simple equation 


at 


2 2 

a F 3 F 

2 ^ 2 
9R 3Z 


(A-1) 


the first half time step can be written 

F* , - , F* - . - 2F* . + F* F? - 2F? . + F" 

1,1 3-»1 ^ 1+1,1 i«n 1-1 . i>l+l _i>3~l 

(&R)^ (AZ)^ 

(A-2) 

This gives a tridiagonal set of equations which may be solved without 

iteration (see any numerical analysis text) . Next the equation is 

■k 

written implicitly in the other coordinate, the values F being known. 

I 

** n * ' * k kk kk kk 

F. - F. . F._^, . - 2F. . + F. V - F. - 2F . . + F. _ 

+-1>J . 3->J+3- i,J 3-,J-1 

. (AR)^ : (AZ)^ 

I _ ■ ■ 

■ ! ■ (A-3) 

Again a tridiagonal system of equations is formed and solved for the 


kk 


F. . values. Finally 





n+l Tl ^ ^ 

F . 7 - FV . F, . ^ - 2F. . + F, 




JjJ- 


i+l.j i,.i i-l,j . i>j+l 


At 


(AR) 


iSciA: ** 

- 2F. . + F. . , 
(az)7 


(A-4) 


which is explicit. In practice, the equations may be subtracted from 
each other to eliminate F 

The ADI method was used to solve the implicit species equation. It 
was also used to invert the P matrix after converting that Poisson- 
type equation to a pseudo time dependent equation. This was done by 
clearing the denominator in equation (4-26) , moving all terms to the 
right hand side, and replacing the zero on the left hand side with the 
finite difference analog to 9P/9X» where "chi”, X, is the pseudo- time. 
The ADI method was then applied and the equations solved as though the 
P variables were moving through the X domain to a steady state solu- 
tion which was the set of values F. . at n + 1. This was done using 

J- 5 J 

equations (4-28a) and (4-28b) , In that sense, the solution o£ the P 
equation was still iterative. 

Tests with the entry problem showed that SOR converged the P 
field faster than ADI if the cells were square. But the use of long 
rectangular cells, corresponding to low aspect ratio, gave ADI a speed 
advantage over SOR which was as high as a factor of five. Numerical 
experimentation showed that the convergence rate behaved as shown in 
figure 38. A few restarts varying AX and iterating over one At 
established the two slopes and the optimum value of AX. The ADI 
method was used for all problems with uniform and coaxial entry flow. 





Appendix B 


OUTLINE OF THE ALGORITHM FOR FLOWS WITH STRONG REACTION 

Since the carbon monoxide problem was not completed, this appendix 
briefly discusses the planned approach for dealing with the kinetics 
and heat of reaction. The detailed kinetic equations for CO oxidation 
are quite extensive as shown in Brokaw and Bittker (8) . A mass equa- 
tion for each specie or radical would be needed, including data for 
the diffusion coefficients. To avoid this the computer program used in 
reference (8) was run for a series of concentrations and temperatures. 
The global rate equation for a second order reaction was integrated to 
give an equation predicting a dimensionless concentration as a function 
of a global rate and time. The results of the detailed computations 
were fit to this equation to get the global rate from the slope. Fig- 
ure 39 is an example of such a plot. The good fit to a straight line 
indicates the global rate adequately describes CO oxidation for the 
temperature and initial concentration shown. Most fits were good, and 
a library of global rates was planned. 

The intended sequence of computations of specie reaction was as 
follows : * 

1) Solve the species convection and diffusion over the time sub- 
step At’. 
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2) Compute the enthalpy of each cell based on the new composition 
and old temperature. 

3) Enter the reaction computation, pick a global rate for each 
cell, and react at constant temperature over At". 

4) Compute enthalpy based on the new composition and the change 
that occured over At". 

5) Compute the heat capacities Cp and C^ and calculate the 
temperature change from the change in enthalpy. Calculate the energy 
change. 

6) Repeat steps (3), (4), and (5) over all the At" required 
until step (1) must again be repeated. 

This sequence contains a number of errors. One is that for a 
mixture , 

M 

where is a function of T for each specie M, the reaction causes 

both a change in composition and temperature. Thus 

= Y) w <^-2) 

and the second term has been ignored. The same problem occurs for in- 
ternal energy. For small composition changes this error may be accept- 

f 

able. 

The choice of position in the algorithm for the species equation 

was arbitrary. But it was felt that computing mixing, reaction, and 

subsequent temperature changes just before calculating P. . was the 

1 



most appropriate position. Thus the reaction affects the new pressure, 
and the pressure is the variable which couples the reaction chemistry 
and fluid flow. The pressure field immediately acts on the flow in the 


next time increment. 



Dimensionless concentration 


0 ^ 
.(M) 


Time, sec, t 


Figure 39. - Curve fit of detail kinetic calculations to give a global rate. 
Second order oxidation of carbon monoxide. 7 = 160O, initial mole frac 
tions: CO, 0.10; O 2 , 0.10; H 2 O, 0.12* H 2 , 0; CO 2 , 0.10; N 2 , 0.58; 

CO + |o2 = CO 2 ; f^C^Q/dt = "k 'C^qCq . 


Appendix C 


DESCRIPTION OF THE NUMERICAL PROGRAM 

The program listed at the end of this appendix is an experimental 
program written for a time sharring computer. It is not in a “produc- 
tion" form, and it will require some effort to switch the program to 
batch mode operation. Much room for streamlining is certainly possible 
and desirable. 

The program listing represents the status of the last problem at- 
tempted, that of carbon monoxide oxidation. The program is scaled for 
a maximum gx’id size of 20 x 40 and for five species. Lines of comment 
within the programs help explain the purpose of the program segments 
they block off. 

The main program and subroutines will be identified. Next the 
important variable names will be defined. Many other variables are 
self evident and need not be defined. The equation symbols used in 

l 

this thesis were chosen by convention (U = axial velocity) and because 
they could be identified with their variable (R = radius). The symbol 
system initially employed was more cumbersome and used many Greek sym- 
bols. Unfortunately the computer program uses variable words consis- 
tent with the old symbol system. Some common ones are: 

UR = radial velocity, V 
VZ = axial velocity, U 
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SQUIG = radius , R 
TAU = time, t 
RDL = aspect ratio, R^ 
SIG = density, p 


A, Programs 

FMIX6 - Main program which controls all flow of information, and per- 
forms major calculations, 

INIT - Subroutine which impresses the initial conditions of the prob- 
lem, plus sets some constants, 

BOUN - Subroutine which provides boundary conditions. 

PR0PS6 - Subroutine which specifies the properties of the fluids and 
computed the reaction. 

PADI “ Subroutine which performs the ADI iteration of the P equa- 


tion. 

MASS - Subroutine which solves the species equation. 

RESET - Subroutine which permits resetting the variables in the TSS 
mode when all other programs are compiled with the Internal 
Symbol Dictionary default, ISD = n. Can be excised in a 
batch program, 

) 

RITE - Subroutine which writes output and tapes plotting data. 

SIMPLE - Subroutine which calculated reaction fluxes by Simpsons Rule, 


B. Equation Variables, Constants and Supporting Information 


A1->F1 ,1 
B2, E2j 
B 

BC1->BC8 

BETAK 


Coefficients for the specie ADI- 

Explicit term In radial momentum equation. 
Constants in boundary conditions. 

Input for coefficient. 
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BETAM 

BETAMT 

BETAV 

BETAVR 

BETAVZ 

BKCOEF 

BMCOEF 

BVCOEF 

ClIN 

->C5IN 

Cl OUT 

^5 OUT 

CISTOR 

^SSTOR 

CCl 

^CC42 

CODV 

COK 

COMU 

CONC 

CON Cl 

^ONC5 

CON CUP 

CONUPl 

->CONUP5 

CONOLD 

CONT 

COTHER 

CP IN 

CPN2 

CP 02 

CPOW 

CP STAR 

CSTAR 

CVN2 

CV02 

CVSTAR 

D 

DCHI 
DI, Eiq 
FI, DJ,> 
EJ, FjJ 
DSQIG 
DTAU 
DV 

DVSTAR 

ENEW 

ENG 

ENGN 

BOLD 


Input for coefficient. 

Mass truncation error correction. 

Input for and coefficients. 

Radial momentum truncation error correction. 

Axial momentum truncation error correction. 

Coefficient for correction. 

Coefficient for correction. 

Coefficient for 3yj^ and corrections. 

Input specie concentrations in center tube of coax. 

i 

Input specie concentrations in annulus of coax. 

Arrays for tape storage 
Main equation coefficients. 

Curve fit coefficients for diffusion coefficients. 

Curve fit coefficients for thermal conductivity. 

Curve fit coefficients for viscosity. 

Total concentration. 

Concentration of the 5 species. 

Upstream total concentration. 

Upstream species concentrations. 

Old value of continuity. 

New value of continuity. 

Coefficients for heat capacity. 

Center tube input fluid heat capacity. 

Nitrogen Cp, 

Oxygen Cp , 

Annulus input fluid heat capacity at constant pressure. 
Reference heat capacity at constant pressure. 

Reference concentration. 

Nitrogen Cy. 

Oxygen Cy. 

Reference Cy. 

Explicit terms in axial momentum equation. 

Pseudo-time step AX. 

ADI coefficients for P and pj^. 

Radial cell dimension, AR. 

Time increment. At, 

Binary-type diffusion coefficient, 

Reference diffusion coefficient, 
n + 1 value of total energy, E. 
n value of total energy, E. 

Normalized value of total energy. 

Old value of energy. 



EULNO 

EY 

EYE 

EYEN 

EYEOW 

EYOLD 

EYSTAR 

FREQ 

G 

GAMIN 

GAMMY 

GAMOW 

I 

J 

LT 

MFINIT 

MLES 

MLESIN 

MLESOW 

MMIXIN 

MMIXOW 

MOLFR 

MOLMIX 

MOLWT 

MS TAR 

MUSTAR 

MWT 

NPR 

NRE 

NSC 

PB 

PBHAF 

PHI 

PR 

PRANIN 

PRANNO' 

PRANOW 

PRSTOR 

PSI 

PSTAR 

PUP 

Q 

RATI 
RAT 2 
RAT3 
RDL 

REYN IN 

REYNO 

REYNOW 

RIN 

ROUT 


Euler number, - . .. 

Normalized reference internal energy. 

Internal energy, I, 

Normalized internal energy. 

Internal energy of annulus input flow. 

Old value of internal energy. 

Reference internal energy, I . 

Cyclic frequency, f. 

Explicit term in P equation. 

Center tube input fluid. 

Ratio of heat capacities. 

Annulus input fluid. 

Radial cell index. 

Axial cell index. 

Total length. 

Input mole fraction. 

Mixture Molecular weight minus specie K. 

MLES for the coaxial center tube input. 

MLES for the coaxial annulus input. 

Mixture molecular weight for the coaxial center tube input. 
Mixture molecular weight for the annulus input. 

Mole fraction, X. 

Mixture molecular weight. 

Normalized molecular weight, M. 

Reference molecular weight, M*. 

Reference velocosity, 

Specie molecular weight. 

Prandtl number, Np^.. 

Reynolds number, . 

Schmidt number, Ng^. 

Pressure, P. 

Value of P after first half of ADI. iteration. 

Coefficient , 

Pressure, P. 

Prandtl number for center tube coax input. 

Prandtl number. 

Prandtl number for annulus coax input, 
a Pressure to be taped. 

Coefficient, 

Reference pressure, P*. 

Upstream pressure. 

Velocity divergence. 

Radius ratio (i - l)/(2i -3). 

Radius ratio (i - 2)/(2i -3). 

Radius ratio (2i - 5)/(i - 2), 

Aspect ratio, R^. 

Reynolds number for center tube input. 

Reynolds number. 

Reynolds number for annulus input. 

Radius of coax. center tube. 

Radius of coax outer tube, Ry. 
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S Explicit terms in the species equation. 

SGSTAR Reference density, p*. 

SGSTOR Density to be taped, 

SIG Density, p. 

SIGK Specie density, pj^. 

SIGOW Density for annulus input. 

SKHAF Value of specie density after first half of ADI iteration. 

SKOLD Old value of specie density. 

SMITIN Schmidt number for coax center tube input. 

SMITNO Schmidt number, 

SMITOW Schmidt number for coax annulus input. 

SOLD Old density. 

SOUN Speed of sound squared, A. 

STRONG Strouhal number, 

T Temperature, T. 

TAU Time , t . 

TAUEND Time at the end of a run, 

TCYC Cycle time, the reference time 

TEMPIN Temperature of coax center tube input. 

TEMPOW Temperature of coax annulus input. 

THETA Coefficient in mass equation. 

TIME Time value for taping. 

TPSTOR Temperature value for taping. 

TSTAR Reference temperature, T*. 

UR Radial velocity, V. 

UROLD Old radial velocity. 

URSTOR Radial velocity for taping, 

VIN Velocity for coax center, tube input. 

VOUT Velocity for coax annulus* input. 

VREF Reference velocity. 

VUP Upstream velocity. 

VZ Axial velocity, U. 

VZOLD Old axial velocity. 

VZSTOR Axial velocity for taping. 


Program Control Variables 


CELLIN 

CONTHI 

CONTLO 

DTMAX 

ERROR 

ILES 

IMAX 

IMIN 

IMNI 


The number of the last cell within the center tube for 
annular flows . 

Largest acceptable value of the error on the continuity 
equation. If - exceeded , the time step is cut. 

Low value of continuity error. If the error is less than 
this number for 3 consecutive times, the time step increases. 
Maximum allowable, time step. 

P convergence error (also ERRORl) , 

NR + 2. ■ 

NR + 3. 

NR + 1, 

NR 



INCOMP 

ITERS 

ITEST 

ITMAX 

JEND 

JLES 

JHAX 

JMIN 

JMNI 

JSTART 

JTEST 

NANN 
NBUG 
NCONT 
N COUNT 
NFIRST 

NFIRPB 

NFLU 

NIN 

NITER 

NL 

WOUT 

NOUTER 

NPRITE 

NPROB 

NR 

NREACT 

NRITE 

NRUN 

NSAVE 

NSPECY 
NSTOP 
NS TART 

NT 

NTAPE 

NTLOOP 

NTRITE 

NTUBE 

NY 


If value = the fluid is incompressible. 

The number of P iterations in that time step. 

The radial uej-x i.‘”,mber denoting the P value being tested 
for convert ’ 

The maximum : P iterations in one time cycle 
Largest axifsi- index for computing U. 

NL + 2 . ' • 

NL + 3. 

NL + 1, 

NL. 

Smallest axial 'index for computing U. 

The axial cell number denoting the P value being tested 
for convergence. 

The lowest ceil number within the annulus. 

If value is li-'j.. debug output is written. 

Counter on continuity test for increasing At. 

Loop counter on writeout test. 

If value = 0, the P array calculated in the first At is 
saved. 

If the value is 1, the previously stored P array is loaded 
at initialization of the problem. 

Identifies the fluid being used. 

Number of At' in each At for the solution of the species 
equation. 

The P field Iteration number. 

Number of withra-grid axial cells. 

Number of allowable outer iterations on 
Outer iteration number. 

Counter on P iteration for writeout of 
The problem number. 

Number of within-grid radial cells. 

If value = 1, reaction is calculated. 

If value = 1, printer output is used. 

Run number. 

Sets the number of At increments between renewing restart 
data storage. 

Number of species in multicomponent calculations. 

If value = 1, program stops. 

If value = 1, a restart is effected by reading dataset with 
last restart storage. 

Number of time loops. 

If value = 1, output is stored on tape for later plotting. 
Time loop counter for output. 

Test value for writeout. 

Largest cell number within the center tube of coaxial 
injection. 

Number of At" within each At^ for computing reaction. 


.n+1 


? array. 


D. Listing of Computer Program 


Reproduced from 
best avaifabfe copy. 



CO^t^CK/NN/P^TAP ,SG?T^P,r^UST#R»MClWT»lNCC»'P 

COMMON /no /OTA U, TC YC *6RROR ,PH1 ,THFTA ,P 5 I ♦ PF TAM ,RETAV , PET A I » AK , nCHI 
CCPPCN/CC/PKCCFF^CClEtrCl.?, CC32,CC^3, C C3^ ,CC3‘^tCC 36 ,CC 37 
COMMfK/PP/ATRITF» TTVA> ,nfRI TP tNFLU,^•PR^P♦^P,^LTKT»^’TTEft, NOUT 
CGMMCN/SS/TAUENCtNP T T E t NTAP E ,N'SA VE ♦ NF I RPP 
COMMON/ TT/C-CLC» PET amt, PFTAVR ,PETAV7 , JSTART 
COMMON/hb/RATl,RAT2 

COMMCK/yx/RIN, VIN,VnLT,NTORE,NANN 

CCMMCK7YY/DTCLC,NCT AU, MNCL C ,NYOLO 

COMMON ZAP /MS TAR, TSTAR ,CSTAR ,CVSTAR tCC38 , 5FFCIP 

COMMCK/AC/NRE ,N PR, GAMMY, HOLM IX, CONC 

CCMRCN/AC/K5C 

COMMON/AE/CC2tCC8,CCS,CCl6,^‘FROF,NSPECY,^SPECTMULTIO,NY♦NlN,^‘R’"ArT 

COMMCA/AF/S ICK, MCtFP 
COMMON/AH/SIGKUP ,S»<UP 
COMMCK//K/CC26, CC27 

CCMMCN/AL /MLFS,T ,CAMIA,GAMCW,TEMPCW, S! ?EX 

COMMON /AM /MOL F UP, M MI XLF,MLE SL’P, SM ! Tf P ,C- A MUP , SM I T I N , SM ITOW, - 
Z PEYMN, PEYNOWtREYOP 

COMMCIs/AA/MMT XI A , MM 1 XCV , M L E5 I A , ML ES CW 
COMMON/AO/EYEGW,ENGCW,SIGCW,TFOl« 

C 


1 fOPMATIT2 ,*CPUTIME =»F<5,3,» SECCNCSoM 



2 FORMAT! 1 H 4 ,T 40 , 50 HXXXXX 
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5 FCRMAT(T2,»REAO FI7E? PIZER = CTAU,TCYC,RCLT,RDL,PHI,TMETA,Pf;T,- 
ZPET AM,PETAV, PFTAK, TAUENO, OCFl .ERROR* /.Tr3.*FIZF!=ITMAX,NTRITE,- 
ZNPRITE,NP fNL ,KFRCB, NFLU , N P E ACT , KY , NI N , NnilT , NF IPPP.NRj rp, NT AP E ,NR UN * > 

A FORMAT! T2, •OTAU=»F10<,e,’ TC YC = ' F6, 4 . * PCLT^*F6o3,' RCL=*F4«?,- 
Z • tF'ETA=*FA,2, » PSI=*F4,2,* P*^tam= » f 4, 2 ♦ * RFTAV='- 

7 F4o2,» PETAK=*F4»2/,T2, *TAUENC= *F«o4, • CCFT=»F9c8,’ FRROP=*- 

z ipr7»li 

5 FCFMAT (T2 ,* !TMAX=* T5, ' NTPITE=*T3,* NPRITE^’IE,' NP=*I2,» NL=*I2,“ 

Z » NPRCB = *I2,« KFLU=*!T,» NREACT=*Ilt» AY=*I2, ' NIN=*I2, ' NrUT= « T ?/. - 

Z T2, 'NFTRPe^ *I 1, • NRITP=*11,* NTAPF=*n,* NPUN='I3) 

6 FCPPAT(T2, I4,» ITERATICKS DOME* I OUIT.M 

7 FCFMATdHn 

P FCPMATIIH ,25151 

9 FOFMAT(T2 ,* IF TFIS IS A RESTART, TYPE T«J 

10 F0PMAT(T2, »RFAD IN CCMMFNTS CN THIS RUN, pCPMAT 123H0 •*! 

11 FORMAT! 120F0 


Z /) 

12 FPRMAT(Ll) 

13 FCRMAT (T2, »ERROR=« IPC1C*A) 

C 

C START MAIN PROGRAM WITH TIME CHFCK 

C 

SC CALL CPL7IM (MLSEO 
SFC0NF=MLSEC 

C PEAC INPUT ANC INITIALIZE PROBLEM 


100 NPtG’C 





- klFBER PRCGP^f' PCP Lf^STEflC¥, TWC-C T*' FN’S TONAL » MULTICOMPONENT 
TUPP FLOWS* LSFS thp TCE pETHTO FTP ^lL SPEGO FLOWS - 
TKCLUrfS VARlfiRLF CUTER ITERATION CApAPTLTTY, AUTCMATTC AO.IUSTMENT 
CF ACCEPTARLE ERRCO IN THE PRESSURE FTELO ITFRATICN» MAMIJAL 
ACJUSTHFNT of time and WRITEOL’T STEPS! 7E, ANO pERFCRHS THE 
FRFSSUPF FIELC ITEPATICK BY THE ALTFRNATIMF DIRECTION IMPLICIT 
TECHMCUE USING SCPRCUTTKF PAOIK - M/SS AND MOMENTUM COPPECTTONS IN 
PECUIRES SUPROUTINES INIT«» BCUN«, PPCP«, RITE#, RESET, MASS2, PAHl# 
R PADI«* lACLUOFS MIXING ANC REACTION DF UP TO 5 SPECIES. 


IMFLICIT REAL»B(A-H,C-Z) 

C 

CIMENSICN PR(2?,A3I ,SIC(23,A2I,UR< ?3tA3I tV7{23,421 
7 EYE ( 23 ,43 I, ENG (23 ,43 J 

DIMENSION OOLOI 23,43) ,0(23,43) 

CIMENSICN P(?3, 43), n 23,43 ), soldi 23,4?) 

Cl MENS I CN PP(23 ,43) ,CCN CL 0(23,43) 

CIMENSION SnUN( 23,43) ,CCNT( 23,4?) 

CIMENSTCN 0(23, 43), ENEW( 23, 43) 

DIMENSION RATI (23) ,RAT2(23| ,RAT3(23 ) 

CIMENSION BFTAMTI 23 , 4 ? ) , PE T A VR ( 23 , 43 ) ,PFTAV7(23 ,43 ) 

CIMENSICN GCLn(23,43),EYCLD(23, 43 ),- 
?. VZ CIO (2 3 , 4 3) ,URCIDI 23,43) ,ECLC(23 ,43) 

CIMENSION AI<23>,C I(23),D1( 73),FI(?3I,FT(23),DJ(43) ,FJ(43) ,FJ(43) 
CIMENSION GAMUP (23 ),CCN'C(23,43), GAMMY( 2 3 , 4 3 ) , T( 2 3, 43 ) 

DIMENSION SIGK(23,43 ,E) ,SIC-KUP(23 ,5 ) , SKUF (23 ,E ) 

CIMENSICN SIZEX(6), SMITUP( 23,4) ,REYUP( 23 ) , SMI TQW ( 4 ) ,SMITIN(4) 

C 

RFAL»E L,LT,M0lkT(5),MLSTfiP,LCR ,LDRSC,ST 7ERU3 ) 

REAL+R MCLMIX ( 23,43 ),NPR( 23 , 43 ) ,NRF ( 23 , 4 3 ) 

REAL*? MSTAP,MCLFR(23 ,43 ,5) ,NSC (23t 43. 4 ) 

PEAL*P MMIxrN,MMrxOW,MLFSIN(4) , MLESCk(4 » , ML ES (2 3, 43 ,4 ) 

PEAL«5 MCLFUP(2 3,?) , MMIXUPI 23 ),ML FSUP (23,4) 

C 

INTEGER CAY,ITERS(400C),SI7EI (15) ,SPECTF(fr) 

C 

logical ANS 

C 

NAMELIST/S I7E/S I ZER, SIZE I 
C 

COMMON /A A /IMN I ,IMIN,ILFS,IMAX,JMNI , JMI N , JIFS , JMAX 
CCMMCN'/PP/FYOLn,V7nLC,UROLD,EOLD 
CGMMCN/CC/FR,S1G ,UR , V Z ,EY E , ENG 

C0MM0N/CD/BC4,BC A,pRRS,ITEST, JTEST,NSTCP,NCGUNT,FPRCRI 
CCMMCN'/EE/PP,PT TMEtTAU 

commcn/ff/cclc,g 

COMMDN/GG /POP ,PUFMA X, SIGUP, SUFMAX,DSCIG, VE1.UP,VUPMAX,RDL,FREC 

COMMCN/F>/P,D,SCLD, FUP2,SUP2 

CGMMCN/tI/NPUG,NRUN,MCNTH,CAY 

COMMON/ JJ /A I,PT1,BI2,CT,0I,ET ,F I , A J , R J 1 , P J2 ,F J . D J , E J , F J , CC4T , 004? 
CCMMCN/KK/SrUN',CONT 

CCMf'CN/LL/EYSTAP,ROt'T,LT,EULNC,RFYNC,STPCNC,S*'ITNO, PR.ANNn,VRFF 
CCMMCN/MM/C, EN EW 
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^ST^RT=0 

^FIFPe=0 

ANS=.FALSF* 

write 

PEAC (69t12> AKS 1 

IF (.NCIoAN’Sl GC TO 1C? 

KSTART=1 , 

101 IF (NSTART„ECoO > FC TC 103 

102 READ no PR,PR*V7,UR,SCt'^,EA'G»EYE,SIG,CTAU,TCYC»POUT,RrL,PHT»- 
Z THET At PSIt BET AM, BET AV, BETA I , P FTAK ,T tOCHT rr Cp , T Au ,T Al IE ND , VHP , VP EP 

Z FtPtFHP2 tSIGlP ,EYtVI^tVCL‘T,CELL^^tPI^f»FRACP, JSTART, ITMA Xt N TR I TP 
Z NPR I TE,HR ,NL tNPROP , KFLU »INCC «P » NCIJT ,NRUKt KT , A NK , NTUBE t K' ANN, NSAVE,- 
Z NRIT FtMAFFt ^TECOPt N COUNT, N'R EACT, NY,NrN,N<;PE CY,{ I TEP S( I) ♦ I = ltNNN) 
PAUSE ♦RESTART, CHA^GF$ CK CT All , OCHI, CP NSAVE?' 

CO TO lie 

103 t^RITF 169,31 
RFAD (5, SIZE) 

1C4 WRITE (69, SIZFR 
WRITE (69,5) SI2EI 
PAUSE •ALL CKAY?» 

105 CTAU=SIZER( 1) 

TCYC=SIZER(?I 
RCUT = SI ZERO) 

RCL=S1ZER(4) 

FHI=SIZER(5) 

THETA=SI ZER(6) 

FSI=SrZER(7) 
eETAH=STZER(8 ) 

BETAV=SI ZER (9) 

EETAK=SIZEP(10) 

TAIEKC=SI 2ER (11 ) 

CCH=S!ZER( 121 
EPPCR=SIZERn3» 

1C6 ITPAX = SIZEI(1 ) 

NTRITE^SUEK ?) 

NPPITE=SIZEI(3) 

WR=S1 ZEl (4) 

N(. = SIZEI(6I 
WPFCe = SIZEI (6 I 
WFUJ = SI 7EI 17) 

NREACT=SIZEI( fi) 

WY=SIZEI (9 ) 

MK = SI ZEI (ICI 
^CUT=SI^EI(11 ) 

KFIRPP=S I7F 1(12 ) 

KRITE^SI ZEI (13) 

NTAPE=S IZE H 14 ) ’ 

KRL'W = SIZEin5 ) ' 

C SET WPITTAG INCICES 

no IPAX=KP43 
ILFS=IRAX>1 
IMIN=IMAX~2 
IPM = NR 
JPAX=AL+3 



JLES^jKa x-i 

JMf K= 

C SCT •'ISCo CONSTANTS 

120 CSC1G=1./KP 

0 5CI SC = CSCir-*DCCIG 

121 PCLSC=PCL*PCL 
FREC=1./TCVC 
CONTHI=3,5D-3 
CCKTl.C = 5eOC-A 

12^ IF (NCLT*ECoOl NCt'T = l 
BMCGEF=C« 

IF lEFT AP.GTol, I PMCO F F= BFT AM- 1 , 
FVCCEF^C. 

IF (PFTAVqGTsI® J RVCCFF=8FTAV-le 
PKCCFF=0« 

IF (BETAK«GT,1„ » PKCtFF = BET «K-1 » 
IF INSTARToFO.n 00 TC 126 
120 NT=0 
KNN = C 
NFIPST=1 
MlCCP=0 
^CCl^^=C 
NSAVF=1 
^SFECV= 1 
INCCMF=C 
TAt=C. 

NRFSET^O 

1250 CO 1251 1=1 .4000 

IF < ITER S{ I I.EOoC} GC TC 126 
ITEFSU }=0 

1251 CCKTINLE 


126 NITER=C 
NSAME=0 
NFPCF=C 

127 LT = CSOTG*ROL:T/Rni*NL * 

c get fluid propertihs 

13C CALL FRCF 

IF (NSTARl.EOoO » GO TC 140 
IF (NSPECY.ECol ) GO TC 132 

READ (ICl NRF.N'Fp.GAMNY .RCLRIXtCONCt SIGKtROLFR,MLFS .GAMIN, - 
Z GAMOWtTEMPCW, SIZEX.MMT XI N , MMI XO W , «LE S I N , ML F SC W, MQLF UP . M R I XUP , - 

7 RLESUP, SMITUP .GAMUP, SR ITCW, PEYN IN , R EVNOli ,P EVU® , S IG KUP , SKUP, - 

2 NSC ,E TE CW.ENGOW, SIGCt ,TPCW 

132 PEWTNC 1C 
GC TC 141 

C INITIALIZE 

140 CALL IMT 

141 CTMAX = .S*SGSTAR#PCUT*FCUT*CSOISO/I 2*»muSTAR*TCYC*(1.«-RDL S01 1 

c CALCLLATF dirfnsi cnless gpcups anc cc« ccffficifnts 

155 PEYNC=SGSTAR*POLT*VRFF/MUSTAR 
EtLNC=PSTAP/( SGSTA b^VPEF^VPEF) 

STRONO=ROLT/( VRFF4TCYC ) 

SRITNC=RUST AR/ (SGST AR>»CVSTAR 1 



1550 IF (^STAP^*F0• 1> or TC 156 
IF UNCCf'FoFO*! 1 GO TC T56 

IF {FHI«GTo0.99o ANC*TFFT A*GT.0*9<3 J GC TC 156 

1551 PHI=lo 
THSTA=lo 
NPFSET=1 

156 CCl=f./2* 

CC2=*5*9CL 

CC3=RDL/16, 

CC^=2c/DS0IG 

CC5=2«*PCL 

CC6 = (2**THETA«'DTAL'#CTAL)/CCSCISC*STRCKC*«TPCN0> 
CC7 = EULN0*{ U-PHI ) 
cce=*5*PCLse 
CC5=D^Al/(^^alG♦STRC^C ) 

CC10=*25<PCL«CC9 

157 CCll=2**CC5 
CC12=Ft'LNC*PMI 
CC13=RCL*CC12 
CCK = PCL«CC7 
CC15=,25/CSOIG 
CC16=rC15*PCL 
CC17 = C$CIG/PS I 
CCie= STRONG /DTA I 
CC19=ThETA/CS0IG 

158 CC?C=a*-THETA ) /CSOIG 
CC21=o5*CC5 
CC22=E0LNC^rr9 
CC23=CC21/DSCIG 
CC2^=CC23*CC2 
CC25=4,*PCL 

CC2 6=CC9 / (8o*DSCTG«MM 
CC27=CC26<RDLSO 
CC2fi=«75#CC9 
CC25=CC5/64« 

CC3C=CC28#RDL 

CC31=CC29+PCl 

CC ?2 = 2* *M N /( PSI*rX91 

CC3?=CC32/CC2 

CC34^CC33+CC33 

CC35=(l,-PSn /nSQIG 

CC36=4./(CSC!G*CS0TG) 

CC37=CC36*rC8 

CC 3E=SGSTAP*TC\C*DTA17 (NV*KTM 

159 CC40=CC6«CC12 

CC41=2./CCHt 
CC42=*5*CC40*ROISQ 
PIl^-CCAO-CCAl i 

PI2=BIl-4,*CC41 
AJ=CC42 

BJ1=-?.*CC42-CC41 
R J2=BJ1-4.*CC41 
CJ=CC42 
FHI=SIZEP(5) 



o o 
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1FETA=SIZFRI 6 ) 

c calculate RADIUS CCEFEICIFNTS 

UO DO 16A T=2,ILES 
161 >1=1 

>IX I 

162 PAnm = (XI-lo> /IXTXI-?*) 

PAT2I I ) = ( XI-2« > /( XI XT-3. » 

Al { H=CCA0+PAT2U ) 

CUT 1 =CCAC*RATim 
IF (IoFCc2I GO TO 16A 

163 PAT3(I I = {XIXI-5oI/(XT-?. ) 

16A CONTTNLF 


C INITIALIZE 

170 CALL PCUN 

c read in coppfnts— -- — 

180 WPITF (69»10 ) 

PEAC (6S,11I 

C READ IN INITIAL FP FIELD IF DESIRED 

185 IF (NSTAPToEOoI > GO TO 190 
IF (KFIPFP.FCoO I GC TC 190 

186 PEAD < lA ) PB 
PEMND 19 

C SET CLC VALUES = IMTIAL VALUES 


190 CO 1S6 J=UJMAX 
VZCLCd ,Jt=VZ(l»J) 

LPClOd PA>v J) =UP(I PAX ,J J 

191 CO 195 1=2, RES 

192 VZCLOI I , J)=VZ II ,J) 

LnClCM vJi =L'RIT ,J> 

193 ECLCI I, J >=Ehs'G( I 9 J) 

FYCLC n , J) = EYE( t, J » 

199 SCLDd ,JJ=<IGn ,JI 

195 CONTINUE 

196 CCMIMJE 

IE nNCCPF.EC.l) JFNC=J»'IN’ 
IF UNCCPP.EO.Ol JENC=JLFS 

197 IF CNSTARToEQ.OI GC TC 19ft 
NSTARI=0 

IF (NTAFEoEC.O ) GO TO 200 
ENCPIlE 12 
EACKSPACE 12 
GC TC 200 

198 NRITE (6,2) 

NPITE (6,11) 

199 CALL RITE 

enter YAIK time LCCF- 

2CC ial=tal+dtau 
NTLOOP=NTIOOP+1 
NCCLNT = NCCUN'T + 1 
NCLT 6 R=C i 

IF (NPROP*EO.U GC TC 2C1 
CALL FPGPC 



n o r» r% r> 


IF (N5PFC\oGT*1 ) CALL 
CALL PCUNF 

2C1 IF (MTEP«EC*Ot CC TC ‘^10 

CALCCLATE TOTAL PASS EFPCR CCRPECTICK’S 

202 IF (BETfippf C»0, 1 00 TO 210 
2C3 00 2C<; J=2,JPIN 
JP=J+1 

2C4 CO 208 I=2»1MIN 
IP=I+1 

CIFFU=CC21«UIRI IP,J )-lR( I r jn 
CIFFV=CC10A(VZn, J F) ~V2 (T» J n 
2C5 IF (BETAPoOTa l« ) GO 70 ?06 
CIFFU=PFTAM#DIFFU 
CIFFV=BET AP*CIFFV 
GO TC 2C7 

206 ClFFU=eMCCEF«CAPS(01FFL) 

CIFFV^ePCCFF#CAPS iniFFV 1 

207 PETAPTII ,J)=DTFFU<f(RA7im«'S1G(lP,JMRAT2<n*SIG(I-lfJl- 


2 -SIGntJn + niFFV+l5;TO(I,JPMS!G(I,J-ll-2«<‘SIGU »JM 

208 CONTINUE 
2CS CONTINIF 

c calculate ole part of CCNTIMUITV 


21C CO 215 J=?,JHIN 
JP=J+1 
JK=J-1 

211 CO 214 I=?tlMIN 
IP=I + 1 

IM=I-1 

212 S = SCLOn t J1 
<IP = 50LC( IP»J J 
S1P=SCLC( IPt J > 

SJP=«CLDn ».JP) 

SJM = SOLO< 1 , J^s t 

213 CCNCLCIU J ) = -CC18*S<CC20#{RATll I) *I STP + F l*UPnLn( 1 P , J» -RA T? ( M * ( S 
♦ SIM*CPCLDU »J >4CC2«nSJP + S >*V70LCn, JP 1~(S + SJM l#VZOLD( It J n )~ 


Z -CCie+BETAWTI T , J1 

214 CCNTINUF 
21 5 CONTT NCE 

C calculate BCD 


220 CO 230 J=2 , JLES 
JP=J+1 

JM=J-1 

221 CC 229 T=2.ILFS 
IP=I+1 

1M=I-1 \ 

Rl=PATim 
P2 = RA72m 
C 222 U=URI It J1 

ClP = UPnF» JI 
LI P = UR< I P t Jl 
UJF=UP( It JP \ 

LJP=UP ( I . JP) 

LI FJP=UPC1 Ft JPI 
223 V=VZ( It J 1 
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VIP = V?(IP,JI 
VIM = V7.( If'.J I 
VJF=VZf I,JF> 

\J*'=V7(I , JK} 

V1KJP=VZ( TM, JP) 

22A S = S IG( I f J ) 

51 F = SIG (I F , J) 

SIM = S IC( IW , J) 

SJF = StC:U,JFl 
fJK) 

SlPJNi^S IGt IPfJW) 

SIPJF=S IG UKf JP> 

51 ^'JM = 5lG (I»^* JM 

225 IF (BETAVoEQoO. ) GC TC 226 
IF (I.EC<,?1 GC TC 2250 
XI2=I-2 

VSUF=VJP4V + VIMJP+VI 
SI=S*SIf' 

OIFFLP=(CC2e*SI>>l + .lF75*ST /> I2 + .1 2 ( Sr S T*' M*IJ 

CIFFUZ= <CC31 + SI*VSUM’»VS0M + *C15625*VSU«*( 5JO+5I MJP-S JP-S I M Jf' I- 
2 +« 125*S I«{VJP+V!^JF-V-VIM) J^RCL 

2250 XI3=I+I-3 

USUP=U IP4U4UIPJM+UJM 

SJ^S+SJP 

0IFFVR = CC2S*SJ*U5UP*L5LR+« 0T562 5*USU*'* ( S IP4S IPJI^-S I I HJM )- 
7 4.0625*SJ4 {U?P + UIPJ?4-L-IJJM)4o0625*SJ«U5UK/XI 3 

CIFFVZ = (CC30*SJ’*V + «,12 5’» ?S-SJMU «RCL *V 

2251 IF IBETAVeGT* 1. ) GC TC 2252 
CIFFUP=PETflV*CIFFUR 
CIFFUZ=PFTAV«DIFFUZ 
DIFFVR=nETAV*OirrvR 
CIFFVZ=eET/V*CTFFvZ 

GC TO 226C 

2252 OlFFUR=PVCnEF*oaBS(OIFFUPl 
ClFFUZ=PVCCEF«OAPSt CIFFUZ ) 

CIFFVP=eVCCEF*CABS(CTFFVR> 

CIFFVZ=fiVCOEF*nABS{OIFFVZ) 

2 260 BETAVB( It J t= 0 I FFUR* (U IP +U IM-U-U )+0 IFF UZ ♦ lU JP+ U JM-U- UI 
BETAVZ(I»J)=0IFFVR* ( VTF4VIW-^V-V » + ci ffv Z* (VJP+VJM-V-V ) 

226 PR0r=C S + 5JR4SIW4SIMJV14 Uj+UJRJ*{V+VI^') 
if n,EC*2 > GC TC 220 

227 B(I ♦ J) =• 5*1!* (pAT3( I ) *S I P*Ul F-S*UIP/R2 ) + CC3 * I PROD- 1 S JP+S IMJP + S- 

Z +S IF* )*( UJP + UI *( VJP+ VI MJP n+CCA*I(0(ItJ)-CnR,J) )4P0LSQ* { UJP + CJW- 

7 -U-Ll-FCL* (VJP-V IPJP-V4V IM) ) / IN RE ( I , J I +N R E ( TM , J ) ) +BETA VR U t JI 

228 D( I » J> =o 12 5*( P2*FPCC-Fl* (SI P4S+ SI P JP + S JR 1 * ( UI P+U I P JR I * ( V IP4V U- 

Z 4RCL*V*{SJR*VJM-P*VJP 14CCA4(RDL*( 0(IvJ1-C(I»JR)I+CC5* (R2*(C-UJRI- 

2 -P1*(UIF-UIPJR) )42. *(P1*V1P4R2*VIR-V U / ( ^R E( I , J ) +NP F (I » JM )) - 

Z +BETAVZ( I »Jt 

229 CCMINUE 

230 CCNTINUE 

221 6( IRINtJLF5I=0, 

E( UESf JLFS 1=0, 

C( ILES, JP1M = 0. 

C( ILES, JLES) = 0, 



CALL PRCPA 

232 IF ( KCUTFF* NF* 0> GT TC 270 
calculate OLC G 

240 CC 260 J=2tJHTA' | 

JP=J+1 

JF=J-1 I 

241 CO 259 Is2»IWT^ ! 

IP=I+1 

IK=I-1 

242 IF nKCCFFoEOol) GO TC 255 

2A4 SOUNd ♦ JI =GAMMV( I T J)*E>fCLn(I « J> /EULNC 

255 P1 = PAT1 n ) 

P2=PAT2(n 

256 P=PR( U J I 
S = SIGU7J) 

SIP=SIG(IP»J) 

« Im = SIG( IPf Jl 
SJF=S IGI I, JP> 

S JF=SIG ( I f JF ) 

257 GOLPI I,J) = P/SOUN(! , J J +CC6# ( CC7* ( R l*PR (IP » J I +P2*PR ( I>',J>-P+CC3 
♦ (FR(ItJPMFPn*J^'I-P-'^)>-*P2*R{I»J)-Rl*R(IP»J) +CC2*( D( T t J>- 
-0(1 »JPI l)+rC9*(R2<'(S + ^IFI*UP(ItJ)-Rl*(SIP^S>*UR(IPfJI+CC2- 
’»((3 + SJM)’*V7( ItJ)-C5JP+S)*V7( IjJPIM+BETAt'Tn ,J) 

258 G(I ,J) = GCLC( I»J1 

259 CC^Tr^LE 

260 CONTINUF 

IF ( IKCCPF*FC«l 1 GC TC 263 

261 DO 262 I=27lF'lN 

SDUK( I» 1I = GAMMY( I, I I»F\OLO( 1 til /FULNC 

SCUNII f JLFSI = GAVPY( TtJLES J4EY0LC( I » JL PS I /'"ULNO 

262 CONTINUE 

263 IF (NCUTpEColI GO TO 3C0 

CALCLLATF TCTAL G 

270 CO 27A J=2tJPIN 

271 CC 273 I=2tIPI^ ^ , . , . . 

27 2 G(I ♦J(=GCLO(ItJI-SCLC(ItJI*(lo-EYF(IiJI/FYrLO(I»JM 

273 CONTINUE 

274 CCATINUE 

PRES5LRE ITFRATICF 

300 CALL FAOI 

301 IF (NSTOP.EC.Ot GC TC 390 

302 IF (^FI RST,EC« 01 GC TC 370 
WRITE (lAI PB 

PFWIND 14 
NFIRST=C 

WRITFCUT G STOP FCR NO PRESSURE CCNVEPGENCE 

37C VPITE (69,6) NITER ' 

371 NBUG=1 

377 CALL RITF8 

ITEPSINNN I = NITFP 

378 WRITE (6,7) 

WRITE (6,P) (ITERS(K) ,K=1,NNM 

379 CALL CPLTIf' (hlSEC) 



5EClfcC=^LSfC 

SEC={ SPCTt»G-SFCCNE) /ICCC 9 

WRITE (69,n SEC 

STCF 

3SC NNN=MNN+1 

n?RS(NNN 1 = N‘TTEP 

C CALCILATF CENSITY 

AGO CO AOA J = 2»JMHvi 
^01 CO 403 I = 

4C2 SIGH . J) = {PR fl » J) - PR( I,J) J / SCUNU ♦ JI + SCLC( TtJ 2 o-FYF( I , J 1- 

Z /EYOLDJ t, J n 

403 CC^Tt^UE 
4C4 CONTINUE 
410 CALL BCUNP 

C CALCUCATE VELCCmFS 

450 DC 456 J = 2,JEN'0 

451 CC 455 I = 2,IMIN‘ 

IF (JolToJSTARTl CO TO 453 

452 VZ(I»J> = t(SCL0(T»JI + SClCflTJf'n<'VZ0LCIItJHCCU*(CC13*IPB{ItJ^) 


z -ppf I » J) )*cc i4*{pR(i,jM-pp(i*jn + o{i,j»H/(srG(r.ji*STC(rfjf'M 

453 IF { l,ECe2 J GO TO 455 

IF (J^ECoJLFSI GC TC 455 

4 54 LP{ It J» = I ( SOtO( I ♦ JI + SCL0(I Y, jn ^^'URClCI I » J) +CC1] * (CC12*I PPI I^t J ) 

z -peUfjn4CC7»(FRn^tJ)-pRntJ) i + BiitJUi/isici i,j)+s!Gii>'»jn 

455 CCATTKUF 

456 CONTINUE 
460 CALI eCUNC 

C STCRF oir C 


SCO IF (NBUGoEO^Oi GC TC 5J0 

IF (KCUTEReKEoO) GC Tf 510 
IF (FCO{^CCLMt^TPITF^«^F«0) GO TC 510 

501 CC 505 J=UJLES 

502 CC 504 I=2vILFS 
5C3 CCLOd t J) =CU t Jl 
504 CCMINUE 

50 5 CONTINUE 

c calculate new 0 

510 CC 514 J=UJLES 
JF=J+1 

511 CO 513 I = 2tTLES 

512 cn tJ) = CCT’» URATin )=»UP (T + ltJ )-RAT2(l >*UR(I tJH+CC 2*( VZII , JPl - 

7 -vzn,j)>) 

513 CONTINUE 

514 CCNTINUF \ 

C(ILFStlJ=C* J 

0( ILESt JLES I = 

515 IF (NITER, FC,0) GC TC 202 

C CALCLLATF CCNTINUITY IKClUCING THE PART 

550 CO 554 J=2,JWIN 
JP=J+1 

JP=J-1 

551 CC 55? 1=2, IF'TN 



0r%/^0<-^n0(~vr»0r>(^o<-»r>0r>o00o 


IP=I+1 

S^SIPdfJ) 

552 CCNT( I ♦ J)=CCKCLC{ !♦ J } +CC18’^S+CC (R AT 1 ( n [ S IG( IP, J ) + S >’>'UP (IP ♦ J) 

I -RAT2(n<'(S+SlG(T-l , J> I*UR( I , J1 +CC2 * ( ( ST G ( I, JP )+S I *V 7 (I , JP 1- ( S- 

Z +SIG(!, I )*VZ( I, J n ) 

553 CCKTINUE 
5 5<i CONTINUE 

C * TEST CCNT FOR ERROR ACJUSTf'ENT 

560 NCCKT=C 

561 CO 566 J=2,JMTK 

562 CC 565 1=2, IH IN 

563 c^es=cAes (CCNT( 1 ,jn 

IF (CABSoGToCONTHT I GC TC 567 
IF (CABS»CT,C0NTL0 > KCCNT=1 

565 CGKTINtE 

566 continue 
GC TC 568 

C REDUCE P8AP ERPCF TEST 

567 ERROR=,S*ERROR 

hSA»'E=0 , 

VRITE (6S,13» EPRCR 
CO TC 30C 

568 IE (IKCCFF»FC*1 ) DC TC 632 

C CALCULATE ENERGY 

600 CO 615 J=2,JMIN 
JFP=J+2 
JP=J+1 
JP=J“1 

601 CO 61A 1=2, TPIN 
!P=I+1 
1M=T-1 

6C2 P1=RAT1(I) 

R2=RAT?{I) 

603 U=UR(I,J) 

UIPP=UR( M2,JI 
UI P=U'PU P,JJ 
UIN=OP( IP, J ) 

UJF=uR(T , JP) 

LJP = U'R( I , JP1 
UIFJP=UR( IPtJPJ 
UTPJP = UR( IP, JP) 

6CA V=VZ( I , J) 

VIP=VZ(!F,J) 

VIP=VZ( IP ,JI 
VJFF=VZn ,JPPI 
VJP=VZ(I,JP» 

VJP=VZ(I , JPl 
VI PJP = VZ (I P,JP> 

VIPJP = VZ( IP,JPT 

605 UU=LIP*U 
VV=VJP*V 

606 S=SIG( I,JJ 
E=ENG( I f J) 

Cl JfCn f J) 
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PP^R = PP( I, J H?* 

C 6C7 C1=C1J4CIIF,J) , 

C 02=0IJ40( J I 

C C3 = UJ4C{ Tf JP) I 

C 04 = CIJ + C( It JP> , 

tCP FIP ST = SOLD( 1 1 JJ •eClOU t JI + CC21* I«2* ( S+S IT (T P , J J1 E 4PNG( IM, 
t ♦(S4SIG( IP»J> M(E4FKC-nPtJ I)*UIP+C,C2*( (S-»SIG(, IiJMn^<F4ENG(I tJP) >“ 

z *V-(5;+SIG(I »JO) >*<E + EKG( ItJF) )*VJP1> 

6P9 ?ECONC=CC22*I P 2’»(PBAP+Fenv»J)) ’f'U-R 1*(PPAP4PB< IPtJ) )*UlP4r,C2“ 

1 « HPE/R+PF (T, JP n^V-( FP/>P40p jp j )*VJP M 

610 THlPD=CC2?<'(Pl*f-Cl*UIF*^®4UIF'!'(UR( I+2tJl-Ul + 2o^(VIPJP*V IP-VV 

Z ■fCC2*(VtPJP+VJP+VIP4V)*(UIPJP-UIPJM) )+R2'M 0?*U— I'T P-U ! ^ 

Z »(VV-VIPJF=>VlP)-CC?4'tVJP*VIPJP + V4VTM)« (U JP-UJp ) ) +CC ?5*(GAMM Y( T t - 

7 +1. J /NPRd ♦ J» + (R1*( EYF( i Pt J J-FYE(l , Jl > -R 2* ( EY F { I » J J -EY E H M t J ) JD- 

Z /NPEdtJ) 

611 FnUPT K=CC24*( -C3*VJ P+CC5« ( (U IP JP*ll J F-UU U7 . *VJP * (VZ (T » JPP )”V ) I- 

z +p 5*( ufp JP + UJP + t IP+L ) VI PJP-VI vjp) +C4»V-CC5* { (UU-U TPJ»<*UJ'' )- 

Z ♦2o*V*(VJF-VJH> J-«5^(UIP+U+UIPJP4UJPI’^IVIP-VI^}4CC2 5«(GAMMV{I »J)- 

2 +1* )/K'PR{ I tJl * I EYF( I . JF1+EYE(I» JM)-2o*EY El T ♦ J > )) /NR E (I t J ) 

612 ENEVl It J> = < EIR57 + SFCCKD4THT «C+FCURTH) /S 

613 EYEH »J1 = ENEW{ I ♦ J 1 2 5* MU IP+U )**2+ ( VJP 4V I«*2 J 

614 CC^^I^tE 
61E CONTINUE 

c restcre cuppent energy array 

62C DC 623 J=2tJWIN 

621 CO 622 I = 2tlMlN 
ENGH ,J>=ENEHt I,J1 

622 CCMTNUE 
6 23 CC^Y1^UE 

C ENERGY PC? € INCREASE ERROR TEST 

630 CALL RELNC 

631 NCUTEP=N0UTER-H 

IF fN'DUTERoGEoNCLT) GO TO 632 
GO TO 27 C 

632 IF (NCCNT,EC,01 GO TO 633 
NSARE=C 

CO TO 635 

633 NSAVE=NS AME*1 

IF INSAREpl.T,5 ) GC TC 635 

634 ERROR=ERROR /o9 
NSARE=0 

VvRllE (65,13) ERRCR 

635 IF INFTRSToFO^Q ) GC TC 7C0 

636 RRITE (14) PP 

RFhlNO 14 ' 

NFIRST=Q 

C UPDATE FNC-CF-CYCLE VALUES 

ICO 00 706 J=1 tJMAX 

VZCLOd, J ) = VZ(1,J) 

L'RCLCUKAX , J)=UR(IPAX,J ) 

7G1 DC 7C5 I = 2,ILES 
702 VZCLCn,J) = VZ(T,J) 

IF IJ.ECaJ^'AX) GC TC 705 
IROLDd tJ) =UR(I , Jl 



703 ECLC( I » T , J > 

PYCLOn ,JI =EYE(T « J) 

70A SCin< It J >=SIGU *J) 

705 CCN7!KUE 
7C6 CC^TI^LiE 

C CftLC COMPONENT FLl'X &N0 REACTlf^ 

709 IF ( NSPECY oHT ol } CALL MASS 
CALL PRCPC 

CALL eCUKL 

C calculate new PRE$5iU9E 

710 IF ( INCOMP* EOo C I GC TC 715 

711 CC 71A J=2tJMIN 

712 CO 713 I=?tlf*tN 
PR n » J) =PP(I * J1 

713 CCKTTKUE 
71A CCNTINUE 

GO TO 71E 

715 CC 7ie J=2*JMIN 
71 e CO 717 1=2 tlMlN 

PRU,J)==GAMMy( I ,J)#SIGn , J>*EYE (I t Jl/ EULNC-1 
717 CCKTINUE 
71 e CCKTINUE 

(• PR BC? 

719 CALL ECUNE 

C fePlTE CUTPLT r. STCPE FCR PLOTS 

7*"C IF (POC(NCCLNTtNTRlTEUNE» 0! GC TC POO 
ifinpite«eCoO,anc..ntafEoEC«oi go to EOC 
nt=nt+i 

760 CALL PITER 
KSAVE=1 
KCCLLT = C 

C ACJLSTNF-NT of TIRE STEP FRCM TFPPIN/L — 

800 CALL RESET 

IF (NPESET, EQ«0I GC TC PCI 
eOOO IF (NTL00P«.LT«3 » GO TO 801 
KRESFT=0 

8CC1 CC^=THETA*CC6 

CC7 = EULNC=* { 1«-PHI ) 

CC12=EULNC*PHI 
CC 13-Pri^CC 12 
CC1A=PCL*CC7 
CC19=THETA/CSCTf- 
CC2C=n«. -THETA) /CSOIC- 
e002 IF (NCTAUoECoO) GO TO 8C4 
ecl IF (NDTALoECoO) CC TC 900 
NCTAU=C 

802 PATCT = CTAU/CTnLr 
8C3 CC6=CC6*RATDT*RATCT 
CCS=CC9«PAT0T 
CC10=CC10*PATCT 
CCll=CCn*PATnT 
CC18=CCie/RAT0T 
CC21 = CC21^PAT CT 
CC2?=CC22*PATOT 



u o 


183 


CC23=CC23*R ATCT 

CC?^=CC?^*RATCT 

CCZ6 = CC?6«fiATOT’»MK/KUCLO 

CC27=CC?6*RrLSC 

CC?F=CC2??*PATDT 

CCZ^=CC2S*RflTDT 

CC30=CC30’!'RATCT 

CC 2 1 = CC3 1 + PATDT 

CC32=CC3Z/RATCT*NIN/NINOLD 

CC33=CC32/CC2 

CC3^=CC33+CC33 

CC3P=CC38^PATCT<NINOLr/MN*NYOLO/NV 
8CA CC^C=CC6«CC12 
CC^1 = 2* /OCHI 
cca2=o?«ccao*r[:lso 
6C5 PI1=-CCAC-CC41 
PI2=eil-Ao*CC A1 
AJ=CCA2 

BJl=-2o«CCA2-CCAl 

EJ2=RJl"Aa#fX41 

CJ=CC42 

806 DC 6C8 I=2,TLFP 

807 AU n=CCAC*RAT2n ) 

CI( !) = CCA0«PAT1 U 1 

8C8 CCKYIKLE 

C ^*RITE RESTART DATA AND EXIT WITH FT^AL WPITEOUT 

900 IF (MGC(NTLCCP,hSAV E I«NE»0) GO TO 902 

9Cl VRITE (Id FBTFR,V7,UP»SCUK,EAG»EYE,$ir,CTAUtTCYCtRCUT,RDl»PHI» - 
1 THETA,PSI»8ETAM,8ETAV, RETA! ,BETAKtT,DCHI,ERBCP ,TAU»T AUE AC t Vt'P, VREF t - 
7 PltP*PUF2t SIGUF. EY ,VIN,VCDT,C ELL TN» R IN, FR ACP , JSTAP T» ITMAX«NTRT TF ♦- 
Z KPRT TE ,NP,NL ,NPPne , N FLf, I ACC VP , KC LT ♦NRll^ , AT , A NK ,NTU R E , K ANN, ASAVE,- 
Z NPITE, KTAPE, NTLOOP, NCOUNT,NREACT,NY,NI A’ , NE PE CY , U TER S (1 » ♦ I = ltA’NA*> 

IF {ASPECVoEO.n GC TE 9010 

WRITE (ICl AftEtA-PRTGAWVV,VCLVTX,CrNC,STGK,POLFR,PlES, GAMIN,- 
Z GAVCWjTEVFrWt ST7EX,MMIXIN,MVI XOW, ML E S TN , ML E SO W, MOIF UP , MV I XUP,- 

Z MLESLP, SMITUP ,G A VUP , S V I T CW , P FYN T N , P EYN CW , P EYUP, S IGK UP , SKUP 

7 NSC,FYEOW,ENGOW,SIGCV,,TFCK 
9010 REMNC 10 
E NOFILE 6 
8ACKSPACE 6 

IF (ATAPE«EC*0I GC TC 902 
ENOFILE 12 
PACKSPACE 12 
ASAVE=2000 

9C? TTE ST=1* I* (TAUEAO-TAU) 

IF (TTEST.GToDTAU} GC TC 200 
903 WRITE <6,7 I 

WRITE (6,FJ ( ITERS( Kl ,V=1 ,AAA) 

90A CALL CPUTIM(MLSEC» 

SECTWO=VLSEC 

$EC = (SECTWC-SFCCAF) /iCCO. 

WRITE (69,11 SEC 
STCF 
END 


I 



or)r»or>r>r>r>(^o 
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MTl? - WFPEP SUPRCUl'irvt IP IT FCP FHX5 - PPFSUMFS A TUBE WITH 

COAXIAL ENTRX>1,. A CCMPRFSieLF FlUICo THE CENTER TIJPE 

CCMFCSITION TS~ -THE ANNUL AP COMPOSITION OF SPFCTFS CO» 

C2f CC2. H2C» REAC INv AS IS THE TEMPERATURE np THE 

ANNULAR stream, INPUT VFICCITES» C C P PCS I T I ONS t AND 
TEMPERATURES ARE HELD CONSTANT, OUTPUT PRESSURE IS HELO 
CCNSIANT, HENCE FPCPLEM IS VALID ONLY FOR SUBSONIC FLOWS# 
FLUID IS CCNFINEH PY IMPERMEABLE KT-SLIP WALLS. 



SUPPOLTIKF TNTT 
IMPLICIT PEAL*fl( A-HtC-Z> 

C IMENS ICK PP I ?? » A3 ) J'3tA3)»STG(?3»43J»UR( 23»A3I»VZ(23»A3I »- 

Z EYE I 23 »A3) tENGI 23»A3) 

CIMFNSICK CCLOI 23»A3I ,:GT r3»A3I 

Cl ME NS I CN e (23 »A3 ) » C( 23,-43 )♦ SOL T( 23, A3 ) » SKUP( 23,5! 

DIMENSICN SCUM ( 23 ,A3) .■,CCKT(23 ,A3 ) 

CIMENS ICN CC23, 43), ENEK 23tA3 J, SMI TTN( A! ,REYUP( 23) 

CIMENSICN GrLD(23,A3) ,FYCLC(23,A3) ,VZCLC(23,A3), UROL 0(23, A3) ,E0LT»( 23,43 > 
CIM ENSIGN BFTAMT(23,A?),BETAVR(23,A3),PETAV2(23 ,A3 ) 

CIMENSICN SIGK(23,A3,E),T(23,A3) 

CIMENSICN CCNCl (23 ,A3) ,CCNC2(23 ,A3 ) , C0KC3 ( 23, A3 ) , CONCA( 23,43),“ 

Z CONC5(23,A3) 

CIMENSICN S IGKUFI 23, 5 ), SMITUP (2 3, A ) , (;AML’P( 23) , SMTTow( A) ,SKI NI T(5) 

C 

PEAL*R MLSTAR,MSTAR,lT,MCLWT(5),M0LMlX(23,A3),SIZEV(31,SIZ»=X(fe) 

real *8 NSC f 23, A3, A ) ( 2 3, A3, 5 ), MOL FUP( 23, 5) , MLE S( 23,43,4) 

PEAL*P NRE(23,A3),N Pf;ET:3 ,A3),GAMMY(23 ,43 )»CCNC(23,A3) 

R EA L P MM ! X ! Nj MWf xn v*'.- ES IN(4 ),MLFSrin(A) ,MFIN'1T(5) 

PEAL*8 mm TXUP(23 ), MLCSUF <2 3, A ) 

C 

INTEGER SPECtE(() 

C 

NAMELT ST/SIZES/SIZEV 
NAMFLIST/SI ZEC/SIZEX 
C 

COMMON /AA / I MNI ,IMTN,UES,TMAX,JMNT , JM I N , JL E S , JMAX 
COMMCN/BP/EYOLO »VZOL(:,UROLD, EOL D 
CCMMCN/CC/FR,SIC,UR ,VZ,EYE,ENG 

COMMON /CO /BCA ,BC6,ERRS,ITEST,JTEST , N STCP , NCCUNT , ERRORl 

CCMMCN7 FE/PP, PT IME,TAU 

CGMMCN/FF/CCLC,G 

CnMM0N/GG/PLP,RUPMAX,SIGLlP,SUPMAXTOSCIG,YELUP,VUPMAX,RDL,FREC 
COMMCN/EH/E,C,SCir, FUF2, SUP2 
CCMMCN/KN /SCt'N ,CCNT 

COMMON/LL/FYSTAR,RGUT,LT,EULNC,REYNC,STprNC,SMITNO,PRANNr,VRFF 

CCMMCN7MM/C,ENEW 

C0«MCN7KN/PSTAP,SGSTAF ,wuSTAR,MCLWT,INfCMF 

COMMON/QC/BKCOEF,CC1S,CC17,CC32 ,CC 3 3 ,CC 3 4 ,CC3 5 ,CC3ft ,CC3T 
CCMMCN/TT/GCLO, EETAMT,EET AVP, RETAVZ, JSTART 
CCMMCN/XX/PTN,V1N,VCL7,NTU6E,NANN 
C0MMCN7AR/MSTAR,TSTAR ,CSTAR ,DVSTAR,CC3R, SPEC! F 


Reproduced from 
best available copy. 





CCt'KCK/AC/NRF ,^FR l^fYt wcLMXt CCNC 

CCRKCK/AC/KSC 

CCRKCK/AF/STGK,P^CLFB 

CO^f'C^/AG/CC^Cl ,CCNC2vCCKC^ ,CCNC<V ,CCKC5 

ccrrck/ah/sigkup,<;kl'p 

COKPCN/Al/Ft.ES »T»GA w TA, GAMQWtTEMPOW, S IZFX 

C0Kf'CN/AM/POLFtP,KM!XLF,FLESUPT S »'I TU F , G A f'UP »S P IT I N , S IT CW , - 
Z REYMK, PEYNOH, RFYUP 

CCPRCN/ AN/PVT XI IXCV* ♦ hl ES PLESCW 
C0MMON/AO/EYEm,,EKr,CV<,SIGCV( ,TPOV* 

c 

1 F0RPATIT2,'RFAC TN riMENSTONAL INPUT VFLCCTTIFS AND LAST CELL OF 
Z INSIDE TUBE AS SIZES: SI 7E V = VI N , VCUT , CF LL U* ) 

2 F0PFAT(T2» *VIN= *F VOUT=»F8«A, » C FL L IN= ' F 3. C I 

3 FCFPAT (T2»*PEAF AN^ULAR ^/^LF FRACTICNS AS ST7EC: SIZEX=XCn, X02 
Z XC02» XF20, XN2, TEPPFRATLPEM 

t* FCPRAT (T2* *CO= »F5*3» • 02=»F5.3,' Cn2=*FS«3,* H20=*F'5o3,* N2=*FSi 


Z * TEPP=*F7o2I 

5 FORWATI T3 , » SOCKETUUP * I 
C 

C read in input VEICCITES ANC LAST CENTER Tijef CELL 


100 I*R ITF 

REAC (5,SIZESI 
\IN = SI ZEV(l) 

VOUT=SIZEV( 2) 

CELLIN = SI ZEVI31 

ICl NRnt U?f2> Vi h»VCUT,CELLIN 
MUPE = CELLIN 

102 RrN=RCUT*NTUBE/ IRM 

VREF = VCLT+{ VI N- VCt'T ) « F I N’«'R I N / (P CUT*PCUT ) 

VIN=VIN7VPEF 

\CLT=VCUT/VPEF 

\LF=VIN/VPFF 

VUPMAX=VGL'T/VPEF 

EV=EYST AP/ (VPFF«VPFF 1 

NTUeE = NTLPF<^l 

NANN=NTUBE+1 

EULNC = PSTAP/ (SGST AP*VPEF*VREF I 
PE YNC=SGSTAP* VPEF*RCl T/RUSTAP 
PARTRE=PE YNC^MUSTAR 

103 PUP=0* 

FUPRA>=C« i 

SIGUP=1« I 

SUFRAX=lo 
INCCPP=C 

C SET CENTER TUBE ROLE FRACTIONS 

1030 CG 1031 I=2»NTUBE 
RCLELFI I ,11 =0o 
RCLFUPI I, 2 I=0*A2 
RCLFL'F ( I ,3 l=0o 
HOLEUPI I*A)=Oo 
RCLFUFn, 51 =le 5 e 

1031 CCNTIMiE 

C READ IN ANNULAR CCNCENTR ATICNS ANC TENPEPATURE 
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1C« VRITE (69t3» 

RF/IC (‘f,SI7-PO 
WRITE (69,A) SI?EX 

C SET ANNULAR UPSTREAM MCLE PRACTICNS AND TEMPERATURE 

ICE CO 1C6 K=1v5 

CC t06 I=NANN«rMIN 
MCLFLP(UK»=SI ZFX(KI +?I7EX(K ) 

J06 CONTINUE 

TEMFCW=2«<{SI7EX16»/TSTAP-1* I 
TPCU = TFMPCb/?, 

C SET upstream mixture MOLECULAR VEIGHTS 

IC7 NMTXIN=<»A2*MCLWT ( 2 I + 1 » E 8* “QLWT ( 5 ) 

MMI XCW = 2o*( SI7EXU )*Mf LWT { 1 ) + S I ZEX ( 2 > * MC LWT ( 2 J +S I 7 EX ( 3 I *- 
2 MCLWT<3)4SlZEX(A>«Mr>LHT( A)4SIZFX( 5>*MOLWT(5)> 

1070 CO 10 71 I=2«NTUPE 
MMI XUP( I 1 =MMI XI N 

1071 CONTINUE 

1072 CC IC73 I=NANN, IMN 
MMIXUPCI I=MWIX0W 

1073 CONTINUE 

108 mlesimi ) = NNIXIN 

MLH SINI 2) =2„’*wOLbT( E> 

MLES IM? >-MMIXTN 
MLBSTMA)=MMIXIN 
1C80 CO loei K=^l,A 

NLESCWIK N {MMIX0W-2*«SIZEX( K J^MOLWTCK) ) / { 1,- SI Z E Xf K H 

icei ccntinue 

1CE2 CO 1C87 K=1,A 
1083 CC 108A I=2*NTUeE 

MLESLPU ,Kl =NLESIMK J 
1C8A CONTINUE 
1085 CO 1086 I = NANN, IMIN 

MLESUPd tNI = MLFSCV(Kl 
IC86 CONTINUE 
1087 CCNTINUE 

C— CALL IN MORE GAS FRCPEPTIFS 

109 CALL PRORA 

EYECW-2o*Bo3lA3AC + 7*S12EX(6 1/(GAM0W#MM IX0W*MSTAR «VREF *VREF ) 

ENGCW=E \ECM-. 5* VOL'T^^VCLT 

SIGCW*EULNC/<GAMOW*EYFCWI 

C SET UPSTREAM SCHMCT NUMBERS 

1C90 DO 1CS5 K=1,A 
1091 CG 1092 l=2*NTUPE 

SMITUPI I,K)=2o*SMTIMKI 
1C92 CONTINUE 
1093 CC 109A I=NANN,IMIN 

SMI TLP( I ,K>=2**SMITCb (KI 
109A CONTINUE 

1095 CCNTINUE 

C-— SET UPSTREAM PEYNCLCS NUMBERS 

1096 CO 1097 I=2*N7UBE 
REYUPI I ) = REYNIN + REYM’N 

1CS7 CONTINUE 

1098 CO 1099 I = N'ANN,IMIN 



PEYIP m =PEYKCW4RFYhCV 
ICS<5 CONIINIP 

C SET ZERO VARIfiPLES IN ENTIRE ORIO 

lie CO lie J=i t 

111 CO n? ! = 1»TMAX 

112 fR(I»J)=0® 

FBU ♦ J) =C« 

UP ( If J I = 

VZ(I,J)=0. 

IRCLDU » JI =0. 

VZOLCI I , J 1=0. 

113 CGM(IfJI=Oo 
BETARTO f J)=0. 

BETAVRl If J >=0, 
eETAVZIItJ)=0. 

IIA C( I ,J)=C» 

P( IfJ > = 0* 

cn f J)=o, 

G( I ,J) =C* 

115 OOLH It J ) = 0o 
ecLC(i»ji=Oc 
HlfJI^O. 

C SET NONZERC VARIABLES IN ENTIRE GPTC 

116 ENGntJI = EY 
ENFMI f JI =EY 
EYEf I tJ J = EY 
ECIC( If J > = FY 
FVCLOCI ,J) =EY 
NR E( I f J )=REYNC 
APR n f J » =PR6KKC 
GAP NY II f JI =GAM A 
POLHIXI 1 , J l = lo 

SCUM I » J ) = GAPPY (If J ^♦FY/EULNO 
SIG(IfJI=l. 

SOLCI If J 1=1. 

CDNC(lfJl=l* 

117 CONTINUE 
lie CONTINUE 

CEFINE SPECIE CUANTTTIES FOR ENTIRE GRID 

120 MFINITI 1)=0® 

PFIMTI? ) = C*21 
PF1N'IT(3 l=C« 

MFlMniAl = C, 

KFIMTI5 1=0.79 

121 SKIMTd )=C. 

SK IKITI 2 )=C.21*PCLRT( 21 
SKIMT(31=0. 

SKI M TIA) =C. 

SK INITt 5 l = C.79*P0LViTI SI 
V.RITE <69fS) 

C STCRE IN GRID 

130 CO 132 K=lf5 
XX=PFTMT(K1 

131 DC 132 J=lfJLES 



CC 132 1=1, ILFS 
r'CLFPd ,J ,K1 =xx 

132 CONTINUE 

133 CC 135 K=l,5 
XX=SKIMT{KJ 

13A CO 135 J=l,Jt.FS 
CC 135 1 = 1, ILFS 
SlGKd , J,kJ=xx 

135 continue 

136 CG 137 J=1,JLFS 
OC 137 T = 1,UFS 
COMCU I,J) = C« 

CCNC2n ,J>=0o?l 
CChC3d , J1 =C» 

CC^C4(I, J) = 0o 
CONC5 ( I, J)=0o7g 

137 CCKTINLE 

138 CC 135 K=l,4 

XX = o5 + VLFSIMK) 

DO 135 J=1,JLES 
CC 135 1=1, lues 

1*LES( T,J,K1 = XX 
135 CONTINLF 

c — input velocities 

15C CO 141 I=?,KTUPF 
VZ( 1,2 ) = VTK 
1^1 CCMTNUF 
152 CC 143 r=K£NN,fviN 
VZ( I, 21 = VOLT 
1A3 CCMINUE 

C SPECIFY INPUT PASS CCNCFNTPflT I CNS 

150 CO 155 K=l,5 

XX = PCLWT(K)/Nf»IXTN 

151 DG 152 l=?,hTL’PF 

SIGKUPI I,K ) = MCLFUP( I,K)<'XX 

152 CCNTIKUE 

XX^I'Cl W(K)*STGCW/vn7XCF 

153 CC 154 T=N4NN, ]K. IN 
SIGKUPI I ,K).= f'CLFUF( I,K>«XX 

1 54 CCMI NLP 
155 CCNTINUE 

' SET SC^E UFSTREANj CCNST/INTS— 

16C DO 161 I=2,NTU3E j 

GAKUPII >=2,«G4M IN 

161 CCNTINUE 

162 CO 163 I=NfiNN,IPIN 
CAKUPI I )=2o=frG4MaW 

163 CCNTINLF 

200 JST/SPT=3 
INCCMP=C 
PETIRN 
ENC 





C PrWN'9 - WTEi^EP ^UPf^Ot'TlNE PDl'N FOR FLOMI >: - FPFJljMfS A OUC"^ WITH 

COAXIAL FLCW EfvTpY OF A CO« PR S I'^L E FLCTO WITHIN IMPFRMFARLF 
NO-5LTP WALLSo THF UPSTREAM PRESSURE IS CALCULATEC US INC THE 
kcmentum eouatidn? ano ooumstream pressure is held constant, 

SU7APLE nWlY FCR LEW MACH MIMPERS, CENTER JPT FLUIO IS Al° 

AT 7C OEG F AN'O A^MJl.AP FLUID IS AP KFAL MIXTURE OE CO, C?t 
CC 2» F?Ot ANC N2 AT A OTEFERENT TEMPERATIPF, THESE C ONCE NTP ATI CNS 
ARE EFin CCNSTAKT, USED IN KRROP=l? 


SL■BPCLT^^E PPUN 
C 

IMFtlCIT REALMS! A-H, 0-7 I 
C 

CIMENSION PR(23,A?I»PR<23,4?)tSir, (23,A2) »UR(23,A3) »V7{73»A31,- 
Z EYE(23 tA3 I» fnG(23»A3) 

DIMENSICN P(23,A3) ♦C(23»A3I »SCL C 1 2 3 1 A3 > , SKUP ( ’3 ♦ 5 J , S I 7FX ( ^ I 
CIMENSION RATU 231 ,RAT2( 231 

CIMENSICN SIGK( 23,A3, F 1 1 SCUN ( 23 » A 3 I * CON T ( 2 3 ♦ ^ ? I 

DIMFNS! CK CCNCUF(23I »CCNUP1 (231 ,C0NUP2 (2 3 I » C0KUP3 ( 2 3 I , C^NU PA I 23 I » - 
7 COEUP5(23> 

CIMEASICN S IGNUP (23^5 I, SM7TUP(?3» A I , C AMUP ( 23 ) , T( 23» A3 » » PFYIJP { 2?> 
DIMENSICN SMI TCVilAl ,smtxk(A) 

CIMEKSICN CONTI. (23,A3>»C0NC2( 23,A3) »C CKC ( 23 » A3 1 » CONC A ( , A3 ) t “ 

7 C0NC5(23,A3) 

C 

REAL* 8 LTt*'OLMIX(23»A?)fMOLTRI 2 3.A3, FI ,mclfuP( 23, 51 
REAL«« NPF (23,/+3 J,NPP (23,A3 I,GAMWY(23, A3 J,CDNC( 23, A3 I 
RF AL*P MUSTAR 5 MGLUTI F» «MLESUP (23 ,AI , MMIXL F(23 ) 

PEAL*8 MLES(23,A3,AItNSC(?3,A3, AI 
REAL*8 KVI^,KVCLT 
C 

COMMON/ A A / IMN I, IMIN, T L ES , !« A X, J MN I , J M T N , JLE S , JMA X 
CCMMCN/CC/PR , SI G ,UR , V7 t^YE, ENG 

C0MM0N/C0/eCA,RC6,FRRS,I TE ST , JT F S T , NSTCP , NCCL'NT , EP R0P1 
CCMMON/EE/PP, PT TVF,T AU 

CCMMCN/r>G /PUP,PUFMAXtSIGUpTSUPMflX,DSCIG, V El U P ,VUPM AX , R DL, Ff>FC 
CGMMOn/eh/R,0, SCLD,PUP2,SUP2 
CCMMCN/kk/SCUN , CCNT 

COMMCN/IL/FVST.APtRCUT ,L T,fuLNC, RFYNOtSTPCNG ,SMITNr, PR ANNO, VP EF 
CCMMCN/NN/PSTflR , SGSTAR , MUST AR , MOL WT , T NCCMP 

CCMMCN/CC/CTAU,TCYC, FPPCP, Ph I, T NET A» PS I, P ftam, « E TA V, 8 E TA I ,PETAK,orMI 

CCMMCN/WW /PAT1,P AT7 

CCMMCN/XX/P IN, V IN, VOUT ,NTU8E ,NA NN 

CCMMCK/ AC/NRE,NPR, GAMMY, M0LMIX,C0NC 

COMMON/AC/NSC 

CCMMCN//E/CG7, C C 8 , CC 9 , CC 16 , NPROP , N SPFC V , N SPEC , MULT I D , NV , NJ N , K'O F AC T 
commcn/af/sigk,mcifr ; 

COMMQM/ag/CGNCI ,CCNC2 ,(:ChC3,CCNCA,CCNC5 
COMMCN/AE/S IGKUP,SKUP 

CCMMCN/ai/wLES,T,GAMIA,GAMCW,TEMPCW,SI?EX 

C0MMON/AM/M0LFUP,mmi XLF,MlF sup, SMI tuPtGAMUP, SMTTIN, 9MiTnw,- 
7 FEY^I^,REY^CW,PFVUP 

CCMMGN/AC/EVErw,ENGrW tS TGCW ,T EOW 



r> o ■-> 
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C/LtPC /'T F^rX6 «110 

CALCU&TF PC« CCEFFICI 5;KTS 

90 XI=ILES 

CCC=( I-3o 1/CXI-l o ) 
q I X ! = I M I N 

92 ECl^CCC^Pr.L 

ec? = ccc* (XI- 2 «W<X!*XT-^c) 

ec?=^« /HDl 
PCA = PCL«EL’LN‘0 
PC5=2 o /Rl'l 
PC^ = 1»/FL'LN0 
PC7=A<,*EULK-0 
RCF, = Ro’^ELlKC 

93 KVIN = ?o’»V 

KVrt;T=2e*VCUT#S TC-rw 
FY=EVSTAP/ ( VREF^VRFF) 
hFIFST=l 

9-<i DC 95 I^2,TPIK 

GA«MV( 1 , 1 J = GAVUP( M“GftPWYnt2i 
99 CCMIKUE 

ENTPY PCLNA 

C TALLEC NFAR FMIX6 #232- 

Q CALCCLATF FR t PR» UPSTREAM ANC CCMNSTRCBM 

ICO CO I Cl I^2,IMTN 

PP(T,l)=FPUt2»-cn»2J/BCA 

FBntJLE5)="PF( 

C 101 CONTINUE 

f 

C 102 CO 1C3 J=2tJLES 

PR(JinSt‘Jl=PB(IPTN*J) + Pni9S»J)/FULNC 

C 103 CC^TI^UE 

IF INFIPSToFQol 1 GC TC 200 
IF (PHUFQpU) RETURN 
lOA CC 1 C5 1^2, IM IN 

PR( I .U=PR( I»2 I'Od ,21/PCA 

IC9 CONllNte 

106 CC 107. J=2,JMIN 
PRtU.FStJI=PPnf'INtJl*P{ 1 MI N ♦ J >/F'ICNC 

107 continue 

IF <NF IPST oEOol 1 GO TO 2C0 
PETLPN 

CC . 


C ENTRY ecu NR 

CC *. 

C called AT FMTX6 #A1C 


CALCULATE SIG t SOLD, UPSTREAM ANH OOUNSTRFAm 

200 DC 2CI 1=2 tl Ml N ...... 

<lf 1 I»1 1=-S1G( I «21+ SCLD( 1 , 11 + SCL0( I ,21 +2o*(Ren a 1+RRU t2 I- 
7 -PP(I,n-FRn,?) >/ (SCUM K 1 14S0UN (1,71) 

SJGU ,JLES)=?«*SIG(UJMM*'SIG(T, JMNIl 
C 201 CONTINUE , 





r AKD Cf^TccLI^E 

2C2 CD 20? J=5tJMIN' 

5IG(1 , JI=S IG(?, Jf 
?IG(ILC5,J)=SIG<IHTK*J) 

203 COM7INUE 

IF f^FIPSToFOoO J RFTUP^ 

20^ DO 2C^ T 

SIG( I, 1 )=2o4SlGO><-SIGn,2> 

205 CCMIhUE 
C 

EMPy ecuNC 

CALLFC FMX6 «^6C 

CALCULATE VELOCITIES, UPSTREAM AK’O DCWNSTRFAM 

300 CC 301 1=2,NTURE 
VZ(I ,2J =KVIN/( SIG( T ,n + SIG{I ,2M 

301 CCKTIWUE 

302 CO 3C3 I=KAKA,IMTK 
VZn ,2)=KV0L’T/( SIG( I rD + SIGU ,2)) 

303 CONTINUE 
30A CC 3C7 I=?,TMIN 

3C5 VZ( I » n = 2<.«V7 ( I ,21-VZn ,3) -BC3* I RATI ( D^tP ( ,2 )-R AT2 < n*IJR( T, 2M 

UPU,1 )=-UPU, 2 J 

3C6 VZ<I,JMAXW2«>»V7n,JLESI-V?nTJHTN) 

UR{ I» JLES ) = UR{ I ,JMIN> 

307 CONTINUE 

i^ALL AND CENTERLINE 

3Ce CO 31C J=2,JLES 

VZULES 9 JU-VZHRIK, JI 
LRdHAX, JI =-L!PMRTN..I» 

3C5 VZC 1, J)=\Z{ 2, J I 
310 CONTINUE 

IF (NPIPSToEC» 1) Gf TC AGO 
RETURN 

ENTRY BCUNC 

CAILEC AT FMTXt 4E3C 

CENTERLINE AND WALL 

AOO CC AOl J=2,JMIN 
EY H 1 , J J = EY E ( ? , J I 
EYE(ILE5,J»=EYE(1KTN,J) 

' AOl CCNTINUE 

C-: ccwnstpeam 

A02 DO *03 t =2,TMIN 

EYEd, JLES J=eCP/( JGAMMVI I , JM IN ) +GAMMY( I , JLF Sd * { S I G (I , J M I N ) - 
Z +SIGd ♦ JLES) n-EYEd , JRINJ 

ENGC I, JLESl=EYEd ♦JMINl+EYE (I ,JLESM^VZ(T ,JLESJ**2 + UR( I, JMJNJ*#?- 
7 -ENGdfJMTNl 

4C3 CCMINLE 

C UPSTREA»< 

404- CC 405 r = 2,NTtJPE 

EYE Cl ,1) = ?o*EY« U5* (S!G (1 ,1 ) + Sir( 1,2 n )<'’*GAMIN-EY F (I , ?) 

EIN = EYE( I, 1 C+EVEM ♦ 2) + V7d ,2>** 2 



rv “"I n o o ^ o r> 


f NG(I ,U=ETN-EKGU 
CONTINUE 

<>06 CO A07 I=^A^^,IM^ 

EYE( I ,11 = 2B’frPYtCb<* (, S* (EIGMfl I *SIGn «?> I/S IGCW I AMOW-FYE <Tf ? I 
EIN = EYE( It lUFYF (I , 2I + VZI I ,2 I** 2 
ENGI 1 ,1 } = E1N«'FNG( r,2 ) 

<*C7 CC6TI6UE 

IF CKFIPSToFOoII go to 6C0 
RETURN 

ENTRY PCUNF 

CALLFC NEAP PASS2 «2S0 

CALC UPSTREAM ANC DOWNSTREAM MASS C GNCE NTR AT I ONS 

500 CO 502 K = l,A 
5CI on 5C2 r= 2 »IMIN 

STGKI 1,1 tK ) = 2o»SKUPM tKI^SIGKI I ,2,K I 
SIGK(1,JLES,K)=2 ,*SIGK(I,JMIN,K)-SIGK(I,JMNI,kI 
50? CONTINUE 
50? CC 505 K=1,A 
50A CO 5C5 J=2,JMIN 

SIGKI 1,J,K)=SIGK( 2,J,K) 

SICK I TLFS,J,KJ=SIGKC IMIN,J,K) 

5C5 CCMIME 
RETURN 

ENTRY BCU6G 

CALLEC at mass? <i?12 AND NEAR FMT)t6 «201'- 

CALC UPSTREAM ANC CCWNSTRPAM CUANTITIFS 

TR IPLE SU6SCRI PTS 

600 IF (NPRCFcECoH GG TG 60? 

OC 6C1 K=l,5 

6000 CO 60C1 1-?,NTURE 

SKUPI I,K)=o 5*SIGKUP(T,K)*(STG(I,1I+STGI I,?n 
6C01 CONTINUE 
6002 cr 60C3 T=NAMN,IMTN 

SKUFU ,K)=SIGKUF(I,KM,5*(STGn,lMSIGCI,2) I/SIGOW 
6C03 CPNTl NUF 

601 CONTINUE 
60? CC 6C3 K=1 ,5 

DO 603 I=2,TMIN 

SICKII, 1,K I=?o*SKUP( I,K I-S IGKU, 2,K ) 

SlGKd, JLEStK I =2,#SlGKn , JMIN,K >-S IGK( I, JMNI,K I 

603 CONTINUE 

604 rC 605 K=:l,5 

CO 6C5 I=2,IMIN ' 

MOl FR( I ,l,K| = MCLFUPn ,KI-MCIFF(I,2,K) 

MCLFR (I,JIES,K)=2«*MCLFPU,JMIN,K I -MOL FP t T, JMNI, K > 

605 CCNTIKUF 

606 CD 6,07 

CC 607 1 = 2, IMIN 

MLESU , 1 ,K) =MLFSUP{ I , > J - M LC S I I , 2 , K I 

MLES( I, JLES,KI=2»«MLE5( I , JM in ,K )-mlE SII , JMNI ,N> 



tC7 CCMIMF. 

6C8 CO 60? K = KA 

CC 609 1=2,IMIK 

NSCd tlTKJ^SMTTL'Pn ♦Kl-NSCnT2fK) 

^SC( I, JCESyK » = ?,*NSC(r t J^TN.K P-^?C ( I T Jf'NTTKl 

609 COMINUE 

C DCLBLF SL’e?CPTPTS 

610 CO 611 T=?,1MTN 

CC^Ct‘P( n=2o*(? TG n»l MS IGl I, 21 )/MM tXWP( T I 

611 CCKTlN't'F 

612 CC 613 I=2» IMIN 

I'OLPIXC 1,1 1 = PPIXUF( n-MOL*^ rX(T, 2) 

HOLMI X(I ,JLFS>=2.*MCLMxn,Jl>'lN) - PCIPTXC T, JPK’T 1 
CONU I, 1 1 = CCNCUPU >-CONC< 1,2) 

CCKC ( I , JICS )=2o*CCKC 1 !,JPI^>-CCKC(ItJ»*M) 

613 CONTINUE 

614 rc 615 1=2, IMTN 

CCNUPl ( ! >=7o^SKLPI I ,1)/PCLV,T (1) 

C0NUP2( T )=2 «♦ SK UP( T ,2) /PC LWT( 2) 

CrM'P3( I) = 2**SKUPn,3)/PCLWT(3 1 
COPLPAdJ =2«*SX(,PU ,4)/PCLWT(41 
C0NIJP5( n = 2**SKLPn ,5) /MDLMI 5) 

615 CONTINUE 

616 DC 617 1=2, TMN 

CONCH I, U=CONUPHI I'CCNCK 1,2) 

CCNCII I ,JLES)=2»*C0KC1( I, JMIN)-CQNCH T,JPKT) 
CGNC2U ,H=CnN'UF2( 1MCCNC2U ,2) 
CCPC2(I,JLES)=2,<'CnNC2( I , JM IN l-CONC 2( I ,JPM ) 
CGNC3n ,l)=CCKUF3t I)-CCNC3(I,2J 
C0NC31 I, JLES)=2®<‘CDNC?(T , J VI M -CCNC 3 1 1 , JPM 1 
C0KC4I 1, 1 5 = CONUP4( T )-CCNC4( !, 2) 

CCNC4( I T JIESM2**C0NCA I I , J V T M -CGNC4 11 , JVM) 
C0NC5( I,n=CnP'UP5( [ MCCNC5M ,2) 

CCPC5 (I ,JLES)=2o’PCCKC5( I, JM IN MCQNCSt 1,JVNT I 

617 CCKTINt'E 


C 1- CENTFRtINE AND WALL 

r TRIFLE SUPSCPIPTS-- 


630 DC 631 K=1 ,5 

nc 631 J=2, JMTN 

SIGKI 1 , J,P ms IGK(2, J,K) 

SIGKfILES,J,K)=SIGKUVIN,J,K) 

631 CCNTINUE 

632 CC 633 K = 1 ,5 

DO 633 J=?,JVTN 

VCLFR( ILES,J,K )=MOLFR (IMIN, J,K) 

633 continue ; 

634 00 635 K=l,4 

CO 635 J^2,JMIN 
VLESIl , J,K MVLESI2, J,K> 

MLESI ILE5,J,K> = VLPS( I VIN,J,K) 

635 CCNTINUE 

636 CC 637 K=1 ,4 

CO 637 J=2,JMIN 

NSC ( ILFS ,J,K ) = NSC( IVU, J,K ) 
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/ 27 CONTI NL’F 

^ CCURLE SUBSCRIPTS 

■ AM CC 6<il J=2,JMIN 

MOLPIXI ItJI^MOLMIVl 2,JJ 

KOLMXf TIES ,J> = RCLRIX(IMTN» J 1 

c^^ca ♦ Jl =CCNC(2 , 

coNci ILes,JX^^c^^'I^,J» 

CONTINUE 

DO J=?»JNTN 

CONCH 1»J 1=CCNCU2tJ) 

CCNCK ILFS t J|t=CCNCl I H IN, J > 
CCNC2(1,JI =CCN'C?{?, J» 

CCNC2( ILES,J)=C0NC2( IMIN, J) 
C0NC3 (1 , J )=CCNC3<?, J I 
CtNC3nLFS,Jl =CONC3( IMN, JJ 
CCNC^Uf J ) = CCNC<i(2, J I 
CCNCAdLES »J>=CCNCA ( If-IN, 
CONCFI 1, J )=CONC'( 2, Jl 
CCNC5nLfStJI=CONCS{ IMIn, J I 
//i3 CCNTINUF 

IF (NFIR<T,F0,1I GO TC 700 
PFTUPK 


ENTRY BOUNH 






CALLED NEAR FWTX6 *707 AND NEAR «201- 

CALC GAMPY AND TEPPERATtRF UPSTREAM AND DOWNSTREAM 


700 CC 701 I=2tIMTN 

GA F r Y n , 1 1 =G A f-'U F n ) -G A N M V I T * 2 J 

GAMMY! I, JLESl=2B«GAMMVn , JMI N)~GA MMV( T , JMNl I 

T(I,JLFSI = (GAMMY( I, JM IN HG AMM Y ( I, JL ES » >*(M0LMIX( lyJMINI-t-MOLMTX- 
n tJLFSn * (EYEU ,JM1M + EYE( I , JLFS n/PC7-2, 
yOI CONTINUE 
ff)2 CC 7C3 I = 2,NTUflE 

T(I,U = 2**(,5«( SIGIT,1) + SIG(I ♦2in**GAMN-Tn,2)-2e 
703 CCNTINUE 

CP 7C5 I = NANN,IMIN 

T(I ,!) = ( TEMPnw+2. )♦ ( . *♦( STG (1 ,l I + S IG ( I , 2 ) ) /S IGPW 1«*GAM0W-T ( 1,2 1-2. 
/05 CCNTINUE 

CENTERLINE AND WALL 

f\h 00 7ia j= 2 ,jmtn 

7JLE GAMMYd, J )=GAMMY(2, J I 

GAMMYULE ?,J1 = G ARMY ( ININ, J) 


T( 1, J)=T( 2,JJ 
TULES, J)=TCIMIN,J) 

VIA CCNTINLE 

calc REQUIRED BCL'NOARY VALUES CF NRE 

V|7 CO 718 1=2, ININ 

NRFd ,U=REYUP(n-NPE(I,2 I 
NRE! I, JLFS )=2.#NRE ! I , JMINI-NRE! 1 , JmNI I 
718 CONTINUE 
VIE DC 72C J=?.JMTN 

NPF( ILFS, J l=NRE ( TMIN, J) 

7JJ0 CONTINUE 



n n «-i 


C 


IF (NFIftSToEO.O) QeTL•R^^ 


FNTPY BCUNE 

C^LLEC at FMX6 

CALCtLATE FP UFSTFEA^ A^C CCWN'STRF Af' 

800 EC POA 1=?, IMCN 

801 PRU,1 ) = (GAf'MYnTl J+CAPYYI f 1 2 M ♦ (S TG { 1 1 1) + S ]G{ I» ? >1 * (E YE ( I t D ♦- 

I EYECI t2M /BC7-PR(I ,?l-2o 

FP( I, JLES I = ~PP ( I, JM IN } 

80 A CONTINUE 

C WALL 

805 rc eot J=2«JMTN 

FR< IL?StJ) = fGA^'PYI IPIKt JI+GAPPY CiLFSt J1 »’» ( S IG < IM TM t J 1 +S IG( TLFS, J I) 
7 *(FYE( IMIK,J)+EYE(TLES»JI) /RC7-PR (I PI W ♦ J ) -2 , 

606 CCMIMiE 
KFIPST=C 
RETLRN 
ENT 
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PR0FS6 “ WIEPFP SURRHUTINF PROP FCR PRCPBPTIFS CF FLUID «6» A MIXTURE 
CF CAPPCA MCNCXIFF, CXYGEMi CARRPK rjOXIDFt WATFR VAPOR, AND 
OXVGEK blTH TFMFFPATt'RES VARYING FPGM ?94 TO 2000 CEG Ko 
PBES?URF=6PnUT 1 ATM, MIXTURES AND GASPS ASSUMED IDEALo 
computes SPECIFIC P'EATS, GAMMA, VISCCSTTIES, THERMAL 
CON'DICTTVITIFS, DTFFUSICN CCEFFirirNT*^, AK'C ' 

INTERNAL ENERGIES® CCMPUTES REACTION RATE OF CP + 02 TO C02 
AS A FUNCTICN CF TFMPEPATUPE® 1 


St'PPCUTINE FRCF i 

IMPLICIT PEAL*B(A-H,0-Z1 
CIMENSION SIGK( 23,i?,p 1 

CIMFNSICN CCThER (6t 5, 2 ),COMU( ?, 5).COK( 3 , E > ,COD V( 4 , A I 
CIMFNSICN 0V(4I,SMTIN(4l , S m ITOH U » , XC P ( 5 I , PEYUP ( 23 ) , CP ( 23 , 43 ) 
CIMFNSICN XF( E),T<23,43) ,SI ZEX(6I ,SMlTtPI?3,4I ,GAMUP(23> 
CIMENSICN FPI?3,A3ItSK(23,4?J,UR(23,4?),VZ(2?,4?),- 
EYE(23,4?> ,fkg(23,A3I 

PEAL#8 MUST AR ,MST AR, LT, MCLWT (S I, MOL M IX (23,431 ,MWT( 5 > 
real*? NSC( 23,43,AI ,MCLFPI2?,43,5 » 

realms NRE ( 23, A3I,NPR(23,43 ) ,GAMKY( 23,43 I ,CCNC( 23,431 
PEAL* 8 MLKTCW ,MMIX0W, MLHT T N »MM I X IN , ML FSOW( 4 > , ML E S IN ( 4 I 
PEAL*E N sc 2(23, 43), N<C 3(23, A3) ,NSC4(23 ,4 3I,MLES(23 ,43 ,4 ) 

REAl3>e MCLFUP(23,5) ,MMIXUP( 231, MLESUP( 23,4) 

INTEGER SPECYI/4H C C/ , SPEC V2/4H 02/ ,S P f CV3/4H CC2 - 

SPECY4/4F F20/, SPECY5/*H N 2 /, SPEC Y f /4H AVG/ 

INTEGER SFECIF(6> 

CAT A CCTFEP/3.7 10O92EC+C0,- 1 «61909 6*0- C? ,3®692359^»O-06,- 
-2oC319674C-09,2®3953 344C-l3,-l*4 356?10C-«04,3»62 5S9B5D+00,- 
-l«E7e21640-03,7*0554E440-C6,-6c76?5137r-C9,2olSS5993D-12,- 
-lo0475 2 2 6C'»0 3,2o400 77S7C+00, 8o 73 509 E7C- C3 6® 60708 780-Of ♦ - 
2, CC21 P61C-09,6® 327403SC-16 ,-4® 83 77527 C + 04 ,4 ®070 127 50 + 00, - 
-1,10844 9 90-03, 4* 1 5 2 1 1 600- C 6 ,- 2® 9 6 374040 -C9 , 8» 0702T03C-13 
-3.0279722C+04, 3®674P26l C+OC,-1®208 1500D-0 3 , 2® 32401 020-06,- 
-6, ?217559C-10,-2«2577253C-13,-l®06115B8C+03,2®9ft406960+00,- 
l®4e91390C-Q3,-5®7899 6?4n-0 7, l.C3 64 577C-lC,-6® 93 535 500-15,- 
-l®424522eC+04,3®6219535C+00,7®3618264C-C4,-l®96522280-07,- 
3®6 2C15 5EC-ll ♦- 2® 094562 70 -15 ,-1020198250+03 ,4 ,4608041 C+OO,- 
3®O9E1719C-03,-1®2392 571D-C6 ,2® 27413250-10,-1® 55 259‘^40-l4,- 
-4®896144 2C+04 ,2 ,71 6 76 3 3 C+00 , 2® 94 51374C-C3, -8,02243 740-07,- 
l®C22e6820-10,-4®8472145D-15,-2®9905826C+C4,?,e963l94C+00,- 
l»5154e66C-O3,-5.72 35 2‘(7C-07, 9®9807?93r-U,-6,52 235 5 50-15,- 
-9®C586l84C+-02/ 

CAT A CCMU/7®014 39 39C-C5, 3«94494 70D-0 7,-6•3 7Ce6 35D-Ll,- 
6, 164C59ir-05 ,5,2121698C-07 ,-lo0045311C-10,3.1294l200-05,- 
4.4C2 10980-07, - 8® on 82 15 10-1 1,-4, 1P4 330 'C -05 ,4,43 679790-07 
-2 ®6399 46 2D- 11 ,7,006 53 81 C-0 5, 3,94 868 38 0-07,-6® 3 9145760-11/ 



CAT/i CCIC/loA78?635C-C5tl»5677362f)-07t-l» '274723D-11 »- 
7 5.1593532C-C6f2 ,025 1356 C-07 ,-3« 10 30 27 81:- 1 ] , -1 , 51 A16 800-05 »- 

Z - 1o 55152C50-07, -2,81112570-11, -3, 60 555750-05,2, ^^35 9830-07 
7 6.57006660-11 ,1,P609C 61 C-0 5, 1.5C495S50-07,-l. 135589^0-11 / 

C 

CATA COO V/-7, 43375710-02, 5, 5 744 26 A0-C4 , 1 . G57C2520-06 
Z -6,14438 130-11 9-5, 5270 5 220-03,2,44 71 1860-04,1 ,66687670-06,- 

Z -2, 655500 80-10, -7, 0951 5 61 0-02 ,4 ,7988553 0-^4, Is 13138 120-06,- 

Z -1,11164940-10,-1.7 3115 650-02,- 1. 3 1 1 623 80-C4 ,2.2 19184 10-0 6,- 

7 -2,52297100-10/ 

C 

C08NC^/AA/I^«^JI, IMIN, ILES, IMAX,J8NI , Jt*I ^ , JLE S , J>"A X 

CD8>^CN/CC/PR, S!0,l!P,V^,FYE,6^G 

COHMON/LL /FYSTAR ,ROUT ,LT ,FU INC , R5 Y KC , ST RCKC ,S 8 IT NO, PRANNC, VPFF 

CO^RC^/NN/PSTAR,SGSTAR,MlJSTAR,MCL WT, INCQMP 

CO'RCN/CC/CTAi;,TCYC,EPPCR,PHI ,ThET A,PSI, FFT A«, 8FTAV , 6FTA I , RFTAK,nCHI 

COMMON/ AB /M STAR, T STAR ,C STAR ,DVSTAR ,CC38, SRFCIF 

CGMPCN/AC/^RE,^FP♦GA^^Y, MCLMI X, CQNC 

CCMPCN/AD/NSC 

COMMON/AE/CC2,CC8TCC9,CC16,^FPCF,^!SPECY,^SPEC,MULTIO,NY,^'T^,^PEACT 

CCPMCN/ AF/S IGKvPCLFP 

CCPPCN/AL/MLES ,T ,GA M F ,GA RCh , TP PPCW , S I 7FX 

COMMON/AM/MOLFUP,MMf xL'P,MLESUP, SMITt’P,GARfP,SMITIN,5MITDW,- 


7 PEYMK ,RfYNCW,REYllF 

CCPMC 6 /A 5 /PM 1 Xr ^,^MrxC^*,KL 6 5 I^, ^LESCi. 
C 

C CAILFC AT FMTX6 «130 

C SET IMTTAl VAIO'ES 


100 PWTd )=2e.C10 
MVT(21=32,000 
MKir 3>=44, CIO 
MWT(41=18,C16 
MVTC51=26,C16 
SPECIE(11=SPEC VI 
SPEC IE(2 }=5PFCY? 

$PEC1E13 )=SPECY3 
5PECIE(4 )=?PECY4 
SPEC IE(5 ) = $PECY5 
5PECIE(6)=SPFCY6 
NSPECY=5 
^ 5 FEC =4 

ICl MSTAR = ,21*MV^T(2 l4.79<KfeT{5) 

CO 102 K=l,5 
J'CLWTFK > = KWT(K 1/MSTAR 

102 CCMIME 

C CALCULATE PEFERE^CE CP AND GAMmA-1. 

103 TSTAR=5,*(70,-32, >/9, +273.1 

1C4 CPC2*lo9 672«(C0THPR (1 ,2,U+TSTAR4 (COTFEP (2,2, 1 > ♦TSTAR#( COTMER ( 3 , 7, I )- 
Z +7STAR*(CCTHER( 4,2,l) + TSTAR*CCTHER(5,2,nn n 

CVC2=CPC2-1,9B72 

CPK2 = 1.9e72*(C0THER(l,5,l J+TSTAR* (COTPER (2 ,5 , 1 HTST AR *( C0THPR( ?, 5, 11- 
7 +TSTAR*(CCTHER( 4, 5, II + T ST AR*C0THF R ( 5,5,11)))) 

CVK2=CPN2-lo9872 

CPSTAR=(,214CPC2+*794CFK2 )/RSTAR 



non 


CVSTAP= { a21^rV0?4^,79«CVN2 1 /“STAR 
GA»«'IK=CPSTAP/CV?TAfi-lo 

C CALCULATE REFERENCE VTSCCSITY ANC ThFPf^AL CONOUCTIVTTY 

105 XMUC2 =CCPU ( ?MTST AR>» tCC^U (2, 2 ) + TST AR »COMUC 3, 2 ) ) 
XMUN2^CO>l( 1,5) ♦TSTAR«(C0*'U(2 ,5 ) + TSTAP^CCPU (3 ,5 ) ) 

HUSTAP=*2 J^XHU02+o 75*X*'L'N2 

XKC2 = CCK tl ,2 J 4TST AR* (CCK (2, 2 ) ♦TST AR*COK C 3» 2) ) 

XKN2=CCK n 9 51+T5TAR*(CCK(2 ,5)+TSTAR*CCK(3,5 ) ) 
XKSTflR=o21*XK02-»«79*XKN2 
10^ PSTAR=1 oC13250+6 


C-' R=ep31A3AO+7 (GY-SC CV)/(SC SEC-GK PCLE-PEG K) 

EYSTAR=8<,?lA3AC47nSTflP/( GAY T N*MS7AR ) 

SGSTAP=PS7AR/(GAN IN«EYSTAR) 

CSTAR=SGS7AR/Y<1AR 

CSPTT=HUSTAR/SG.STAR 

c GALC C IFFUStVITIF?: 

1C7 CO ice K=1,A 

CV<K)=CCCVtl,K )4TSTAR«(CCCV{2»K »4TST AR«C CODVl 3,K)4TSTAR*- 
7 CODVUtK))) 


108 CONTINUE 
CVSTAP=CV(2 ) 

SMITKC=CSPIT/DV5TAR 
SMITINI 1 ) = CSMIT/DVU) 

5YITIM2 ) = CSMTT/CVt?) 

5PI TIK(3)=CSMIT/CV{3) 

SYItin{ A )=CSMTT/CV(<iJ 

109 FRAKNC=CFSTAR«YOST AP/XKSTAR 
5HI TNC=CSYI T /CVS TAR 
KPPCP^O 

PULTIC=1 

no RATP=DSCP7(32«)/28.C1 
FETUPN 
C 

ENTRY PROPA 

CALLFC AT MT12 ftl09 

CALC YU, XK, CF, CV, GAYYY, FOR ANNULUS AT START 

200 KT = 1 
TP=SI2EX(6 I 
CRE=ROUT* VREF^SGSTAR 
PLWTCW=YY IXCH/2, 

IF (TPoGTolOOO. ) KT=2 

201 SUMCP*Oo 
SUYCV-Oo 
SUYX^Co 
SUMY=Oo 

202 CC 205 K=l,5 

2C3 XYU=CCYU(1 ,K) 4TF* ( CC NU ( 2 , K > 4T F#CC YU (3 , K ) 1 
XXK=COKI l,K )4TP«{C0K ( 2 ,K ) 4 TP^CO K( 3, KM 
XCP(K) = le9B7?*(CCTHEP (1 , X , K T ) 4TP* ( COT F FR t 2,K,KT )4TP*- 
7 .(CCTH6R(3,K,KT)4TP« (CCTHER < 4 , K , KT ) 4TF*CCTHEP (5 ,K ,KT 1 U ) ) 

XCV = XCP(K 1-1*9872 
204 SUNCP=SUYCF4XCP(K)*ST7EX(K ) 

SUMCV=SUYCV4XCV#SI7EX(K) 
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199 


Stf^K = SU ( K J 

S t ^ ^ = S U ■’•'. ' + X - ’ .-: V S i .? c X ( K > 

205 CCNTtNUF 

C CALCUS- •>>•■■'-■•■- ivST ANT TN'PUT VALIJFS FOR ANNULUS 

2C6 

CPCM = 5UPCP/ iKLWTOW^'^STAR ) j 

207 FRA^CW = CPCW*SU^'^/SU^'K 
RE YNOW=CRE>'Slw^' 

CSKIT = SUKr^/SGSTflp 1 

210 CC 211 K=1,A 

DV(K) =CCDV( +7P#(CCnV(2 ,K)+TP* (CCDV(3 ,K »+TF#CCDV C4 » K I 1) 
SFITCW (K I=C:^'1T/CV(K ) 

211 CCMINUE 

C CALCLLATE CONSTAAT IKPL7 VALUES FCP CENTER JET- 

220 TENFIN^Oo 

CPI N=CFSTAP - 
PRAN IN=PRAM.lV 
PEY^I^=RtY^C 
NLtslTN^lo 
RETURN 
C 

ENTRY PRCPE 

CALLFC AT ^ASS2 «2‘5C 

CALC PEACnCN BATES 

300 CG 313 J=2,JMTN 

301 CC 312 I=2tINTN 

3C2 T(I»JI=GANf^YnTjl*RCLRlXll,J)*EVEn ♦ J) /ElLNC-lo 
TP=TFPP{ I, J )*TSTAR 
TENPl =SIGXn» J.U 
-TEMP2=SIGK(I , J,2> 

TENF3 = S IC-K n» J»3 5 

HAie = CC3 6=^3*vBj: + E>«'nEXF ( -1 a 15260+4-/YP *, 

3C3 CO 310 N^l.KV 

IF (TEwPI.LEoOoaOPoTEMPpoLEoCa ) GO TO 311 
30A CELRl =RA1E*TCNFI*TERP2 
CELK 2=RATM’<'DE Lf< 1 
IF (CELRl.C-TaTERPlI GC TO 3C5 
IF (DElK2oGTa TERP2 I GC TC 306 
GO TO 3CP 

305 IF (GElR2etEoTEr'F2l GC TO 307 
TE ST = TENF2+TERr-2 
IF (TEPP ULToTESTI go TO 307 

306 CELK2=TEFF2 
OELKl=7ePF2/RATP 
GC TC 3Ce 

307 CELK1=TERFI 
DELX2=RA1F*CFLK1 

308 CELK3^rELK U0ELK2 

309 TERF1=TEPF1-CFLK1 
TERP2=TEYP2-DELK2 
TFFF3=-TEWF34CELK1+DELK2 

31 C CCNTTME 
311 5IGKI T, J» 1 )=^TFMP1 


Reproduced from 
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SIGt<n» J,2)=TEMF2 
SIGKd ♦ J,2I =TPMP3 

312 CCKTINUE 

313 COKTINUF 
RETLRN 

EMFV PPCFC 

C^LLEC NEAR FMIXf «201 AND FKIX6 #7C7 

CALC GRID FPCPERTTES AT ENC OF T IJ^E STEP BEFORE PRESSURE 

CALC NEW CPt CVf GA^PY, C TE PP 

AOO CP 426 J=2fJMTN 
4C1 CC 425 I=2tIMIN 
KT=1 

TF=(T(l, J )+l, )*TSTAR 
402 IF (TP.GTolOOO* I KT=2 
4C3 DO 4C4 K=l,5 

XF(Kt=PCLFP(I»J»K ) 

4C4 CCNTINLF 

C CALC Kl!» XRt CPf CVf GAPPY, £ TEPF 

410 SUPCP=0* 

SUPCV=C, 

SUPK=Cb 

SUPP=0* 

411 CC 414 K*l,5 

IF (XF< K I.LT. lo0-7) r,C TC 414 

412 XCPIK ) = lpQ872*(CCTFER n,K,KT» + TP*(C0THFR ( 2,K,KT »+TP^ 

7 (CCTHER (3, Kf KTJ +TP* (CCTHER (4,Xf KT J+TF#CCTHER (5,K,KT n n ) 

XCV = XCP< K 1-1,9872 

XPL-CCPUn,K) +TF*(CCHU(2,KmP*COMU(3,K) I 
XXK-CCKC1 ,k|+TP^{CCK( 2,K l+Tf«C0K(3 ,K) ) 

*13 SUPK=SUPK4>XK»XF(K) 

SUPK = SUPP4XPU*X FIX I 
5UPCP=$UPCF*XCP(KI*XP(K) 

SUPCV=SURCV + XCV>»XF(K ) 

414 CCNTINUE 

415 GAMMYII f J>=?UMCF/SL'RCV-1, 

CP( If J>=5L‘MCP/mnLM I XI 1, J l+VSTARI 

Til , JI=GARPY( I , J M-RCIMXII , JI*EYE (I , J I / EUL NC-1, 

416 CSR IT=SLMX/SCSTAR 
NR E ( I, J 1 = CR'^/SIJPM 
NPP(IfJ>=CF(T fJJ*SURV/SURX 

C CALC OV ANO NSC 

420 CC 423 K=l,4 

421 DV(Kl=CCDV(l,K> + TPA{CCCV(?tK)+TF#(CCCVI3,K 1 +TP«CnOV ( 4 , k ) I 1 

423 CONTINUE 

424 NSCII, J,I J=CSMIT/CV(1 1 
NSC2(I . J) =CSNIt/CV( 21 
NSC3I It J ) = CSM1T/CV( 3) 

NSC4(I f J) =CSNIT/CV (4 ) 

425 CCNTINUE 

426 CCNTINUE 

C STCPE PEST CF NSC NUMBERS 

420 DO 431 J=2,JMIN 



CO A3l T=2»TM^ 

NSCl I , J t2) =WSC2(T tJ) 
A31 CCMINUC 
A32 CO ^33 4=2,JVIN 
DO A3 3 I=2»INTK 
KSCJIv J»3t=NSC3<I.J) 
A33 CON’TINt'F 
A3A CO A35 J=2,JMIN 
CC A35 1=2, IMIM 
^SC<I9J,AJ=^•SCA(I,J^ 
A35 continue 
^FPCP=1 
RE'rLR^ 

EMC 
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PADlf - V.IEREP StPPCl'TlKE F/»CI FCR FLCVIXS TC PERFORM THF TTE^ATTOMS 
TF ThF PR'^SSURE Pia.r! - ISES At TF RK'A TI N'G DIRECTICN' [MPLICIT 
(AC11 SCHEME OF ERJAK - INCLHDFS TESTTKG AND INTERMFDTATF 
ViRFTErUT OF THF PRESSURE FIELD - PRESSURE UPSTREAM IE CALCUIAtec 
USING momentum and PRESSURE DOWNSTREAM IS HELD CONSTANT - 
USED IN NFRCP=13, 

SUPPCUT 5NE PADt ■ 

C 

IMPLICIT REALTPf A-H ^ C-7I 
C 

CIMENSKN CELD(23»4'^J ♦GI2P»A?} 

CIMENSION B(?3»A3Uni?3fA3» »SCLP(Z3,A3I 
CIMFNS1CK FP ( 23t A-^ I ♦ FF ( A3 ) 

ni MENS! CN AI (23) ,CI ( ?3)»onZ3)T EU23 UFI (?3 },DJ (A3) »EJ( A3I,FJ( A3I 
CIMENSION P9HAF( 2 3* A3) ,SOUN( 2 3, A3 1 ,CONT( ?3,A3) 

C 

COMMCN/AA/IMNTtIMINMLES,lMAX,JMNUJMINTJLEStJMAX 

COMMCN/CC/BCAv eC6»ERRS, ITEST,JTEST,NSTCP»NC0UNT,FRRCR1 

CCMPrN/EF/FP»PTIMF,TAL- 

COMHON/EF /COLD ,G 

CGMMCN/HH/P» r» SCLD,PLP2tSL'P2 

CCMMON/jj/aI ,BTl ♦DI2 ,CI,CI» El tEW AJ,PJ1, FJ2,CJ, nj, FJ, FJ.CCAltCC A? 
COMMon/KK/SOUN,CONT 

CCMMCN/CC/CTAUtTCYCf ERROR t PH It theta, PS I, BET AM, beta V, BETA I »BFTAK,OCHI 
CCMMCN/RP/MPTTEtlTMAX ,NPRITE,NFLU,NPPrP,NR,NL, NT, N ITER ,NOUT 
C 

1 FCFMAT ( 1H0,T5, • PE ARRAY, I=2,ILES J=1,JLES NT='IA,» NITFR=*I5,- 

Z • TAU=’FlCo6I 

2 FOPMAT( iP10D13* E ) 

3 FORMAT! U-0,T5, ♦FE( ‘ 12, », M2, M= •lPOI3o‘=, ' ’^RR S= *0 1 ?.» 5 ) 

A FCRMAT(1HC,T5,»FBHAF APPAY, I = 2tlVlN J = 2,JMIN Nrr=«lA,» nTTFR=MS,- 

7 ' TAU=‘ElCo 6 ) 

C 

c PPESSLRE TTFRATICN 

100 MTEP=0 

eprcpi=eprcr 

MEST = C 
NSTCF^O 
111^2 
JJJ = ? 

101 BI^PIJ 
PJ=BJ1 
CCA3=CCA1 
ATHPU ==0 

no iTEST = ni 

JTFST=JJJ 1 

200 EC 203 J=1,JLFS ' 

201 CC 202 I=2,TLFS 
PP (I , J) =PB( T ♦ J) 

202 CCNTINUE 

203 CONTINUE 

C FIRST half chi STEP 

210 CC 22*? J=2,JMIN 
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jp=j+l 

211 CO 219 I=2,IWTN 
IP=I-1 

P“PF( I, J > 

212 Cl (I l=-CC4?#(ppn,jpj^fP( T»JP )-P- P )~ { CC4 3-1 «/90UN (I*J>)*P-G( I.J) 

IF (I,Ne*IPiN) GC TC 2IA 

21 3 >»ec64Rf i le s« j > 

GO TC 218 

214 IF (I *NF«2 1 GO fC 217 

215 En2)=CH2)/BI 
FI (2t=0I (21 /BI 
GO TO 219 

217 fini-cnn/fpi-AM iMFidMii 

FI(U=(OI (I)“AI (n«FI(If^))/(PI-3I(n«cii ifi)i 
GO TC 219 

218 EIUPIK)*0* 

5 10 (I PI M -A I (IPIN>*FI( IMNn>/(R i+cinMiM)_/ii(iMINI*FT( IMNIM 

t iV LL^T in'UF 

220 CO 224 Ka2,IPIP 
I=IPAX-K 

221 IF (K*NEo2| GO TO 223 

222 FBFAF(IMK,J)=F1(IPIM 
GO TO 224 

223 FPHAF( I, J1 = FI ( n-EII I I^PBHAFI T+l, J I 

224 COKTINUE 

229 CONTINCE 

C SFCCNC HALF CHI STEP 

230 CC 249 1 = 2 tlHIN 

231 CO 237 J=2.JPIK 
JP=J+1 

JP=J-1 

23? P-PP( r» J I 

PHAF=PPHAF( J I 

233 C J ( J )=CC42* (PP(I*JPH-PP(I»Jwi-p_pj +CC43* (P-PHAF-PHAF I 
IF (J,NE»?I GC TC 235 

234 Cj(2) = CJ(2)+AJ*CM,2)/eC4 
EJC2J =C J/f AJ+BJ) 

FJ(2)=DJ(2I/(AJ+BJI 

GC TC 237 

235 IF (J,EC*JHIM GC TC 236 
EJ( J )=CJ/(BJ-A J’JE J( JP) ) 

FJ { J ) = ( CJ (J I-AJ <FJ ( JM ) !/( BJ->AJ«EJ ( JM J ) 

GO TC 237 

236 EJ(JMIN)=Co 

FJ{JPIN)=(Cj(jmN}-AJ^FJ(JMNl)J/( R J-C J-A J*F J( JMNI J I 

237 COMIME 

240 CO 244 K=2,JPirv 

J=JPAX~K ! 

241 IF (K,NE.2» GC TC 243 

242 PBI ItJMIN J=FJ( JMINI 
GC TC 244 

243 P8 (I » J1 =F J( J) -E J( J)* FE (I , J + l J 

244 CCKTIKUE 
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249 CCNTIME 

115 CO 116 I = 2,IMTN' 

FBU»n = FP(I,2}-cn,21/eC4 
PB( I , JLES»=-Pe( I ♦ JHIM 
C 116 CONTINUE 

117 CC lie J= 2 »JLES 

P6(I LES» J» =PP( f MKt J)4PC6«P< UES» J) 

118 CONTINUE 

119 MTEP = MTFR + 1 

120 IF (MESToEC»l» GC TC 140 

C test error 4PRAY FOR A FAILIURp 

121 CO 12B J=JTESTfJFIN 

122 DO 127 T=2*IMrN 

PABS=CABS (PB( I, J ) }+OAP$(PP( I, JM 

123 IF (PAPSotToloC~10 1 GC TO 127 

124 ERRS=(PB( t ♦ J1-PP( I t JM/PABS 

IF ICAFS (ERRS ULTcERRORl J GC TO 127 

125 NTEST=1 
m=i 
jjj=j 

IF (NITER«LT<, TTf^Axl GC TC 131 
1250 NSTOP=l 
FETUPK 

127 CCKTI M,'H 

128 CONTINUE 

129 IF <ITEST.ECo2*ANCcJTEST„EC.21 GO TO 132 
13C ITFST=2 

JTEST=2 
GO TO 121 

131 !TEST=irr 
JTEST=JJJ 
GC TC 150 

132 IF <ATHRL*ECo1) PETUR^ 

133 ei=ei2 
ej=pJ2 

CC43=5o*CC41 

NrFRU=l 

ERPCPl=EfiPCP/4, 

GO TO 15C 

c test error AT ONE POINT FOR FAILIURE-^ 

140 FAP5 = CAPSIFP(ITFST,JTFSTn+CAeS (PP ( ITFST , UTES^ ) ) 

IF (PABS,GTole0“10l GC TC 142 

141 NTEST=0 
GO TC 121 

142 ERRS=(PBMTEST,JTEST>-FP(I test, JTESTU /FABS 
IF (ERRS^LTeERRCPl) GC TO 121 

C TFST tePITECL'T 

150 IF {NITER«GF,ITPAX1 GC TC 1560 

IF (PCC(PCCUNT,NTRITE>oEC*0«AN04>M0D<N!TER,MPRTTFUEQ.0J go TC 151 
GO TO 200 

151 WRITE (6,1) NT, niter, TAU 
CO 152 J=1,JLF$ 

WRITE (6,2) (Pen ,J) , 1=2 , TLES 1 

152 CCWTINUE 



155 VRME (6,3) I TE ST , JTPST , P8 ( IT FST , JT EST ) , RPRS 

156 IF (NTTER«LT« TTMAX) GG TO 2CO 
1560 KSTCP=1 

RETLPK 

ENC 
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f^ASS? - WIFRFO SURROUTIN'E MASS FOR SOLVING MULTICOMPONENT «ASS TRANSFEi^ 
FLCi^S 1<ITH FMIX5. CCES BINARY tyP£ TRANSFER OF TRACERS TN A 
SOLVENT - COMPUTES AIL VALUES nESCRIRING SPECIE QUANTITIES. 
CCKTAINS PRRCR CCFPECT IONS FOR FINITE 0 TFFERE NC T NG AND A 
SCHEME FOR ELIMINATING NEGATIVE SPECIE DENSITIES. ADI IMPLICIT, 


SU8PCL•Tt^E MASS 
C 

IMPLICIT REAL«fl( A~H, D-2I 
C 

Cl mens I CN FP(?3»A3).SIG(23.A3I,UR( ,V7(2?,A3) »- 
Z EYFI 23,43 ) ♦ENG(23»A3 I 

dimension CONCI 23,43 > ,GAMMy 123,43 ) ,T(?3,43I ,SUM( 23,431 
CIMENSICK RATH 23 J,RAT2( 23) 

CIMFNSTCh CCACl (23 ,43 ) ,CCNC2(23 ,43) ,COKC3( 23, 43), C0NC4( 23,43) 

Z CONC5( 23,43 ), SIZEX(6) 

EIMEhS ICN S IGK ( 2 3,43, 5), CIFFUZ( 23? 4 3, 4), SOLD( 23,43) ,SKUP( 23,5) 
CIMENSI CN TER MU (23 ,4 3 ) ,T E R MV { 23 ,4 3 ) , S KCL t ( 23, 43 ) , SK HAF( 23, 43 ) 
DIMENSION A 1( 23 ,4 3) ,8 1 (23,4?) ,C 1( 23,43), Cl (23,43 J , El (?3 ,43 ) 

DIME NS I CN FI ( 23,43), P2 (23, 43), E2( 23,43 ), S( 23,43 ), SI GKUP( 23,5) 

01 MEN SIGN DI (23) vEt (23),FI(23),CJ(43 ),EJ(43 1,FJ(43) 

CIMFNSION C0EFl( 23,43) ,C0EF2( 23 ,4 3) ,C OFF 3(23 ,43) .C0EF4 ( 23 ,43 ) 

C 

PEAL«e MX ,MUSTAR,MCU«T (E) .MCLMl X(23 ,43 ) 

PEALTB NSC ( 23,43,4 ),M0LFR( 23,43,51 
PEAL*8 NRF(23 ,43 ), NFF(23,43 ),ML ES ( 23,43, 4) 

C 

COMMCN/AAZIMNI, IH IN , R E S , I « A X , J MN I , JM I N , JLES, JHAX 
CCM^/CN/CC/FR, SIG,UR ,VZ ,FYE,ENG 
CQMMON/NN/PSTAR ,sgstap ,mlstar,mglwt,inccmf 

CCMMCN/00/CTAU,TCYC, error, PH I, the TA,PST ,PFTAM,RETAV,RETAI ,PETAK,nCHT 

C0MMCN/CC/5MCrFF,CC15 ,CC17 ,CC32 ,C C.3 3 , C C? 4 , CC 35, CC36,CC37 

COMHDN/hVi /RAT 1 ,RAT2 

CCMMCN/XX/P IN ,VIN,VCUT, NTURE,NANN 

COMMCN/AC/NRE ,NPR,GAMNV,MCl MIX tCONC 

COMf'^ON/AO/NSC 

CCMMCN/AE/CC2, CC8,CCS,CC16, NPROP, N SPEC Y, NSP EC ,HULTI 0 , NY , NT N , NRF ACT 

ccmmcn/af/s igk,mclff 

COMMON/AG/CONCl ,C0NC2 ,CCNC3,CCNC4,CCNCE 
CCMMCN/AH/S IGKUPrSKUP 
C0MMCN/AK/CC26,CC27 

COMMON/AL/MLES,T,GAMI N ,GAWCW , TF. MPCW, 51 7EX 
C0MMCN7 AC/ EY FOK , FNGCV , S I GOH, TPO W 
C 

C -'•-CALCULATE CORRECTION 

ICO IF (EFT aKoEC.O. ) CO TC 110 
ICl 00 1C6 J=2,JM1N ; 

JP=J*1 

102 CC 105 I=2,IMIN 
IP=I+1 
XI=I*I-3 

TEP»'U( I , J l=r.C15*(UR ( IF, j )-UP( I, J ) + (UR ( IP ,J )+UR( I, J ) )/Xl )- 
Z ♦CC26*(UP (IP, J) +LP( I, J))*«2 



TEPPVU t J)*CC16^(V?( I*JP>-VZ(I» J) J + CC27A(vZ( l,JP J+VZCT 
103 IF (BETAKcGTo lo ) GC TC lOA 
TFRHUf T»J !=BETAK«TFRML(I ,J| 

TEPKVn , J) = PETAK«TFPf/V{ I* J 1 
GG 1C K5 

lOA TERPUn, J)=eKCOFF«CAP$(TER.MG( I,jn 
TEPf'VU ,J) = PKCCEF«DAPS ITERMV (ft Jl) 

105 CCMINUF 

106 CO^TI^UE 

C CALCtLATF ACI AKC S(I,J) CCEFFICIENTS 

no 00 116 J = 2,JKIN 
JP=J+1 
JM = J-1 

111 CO 115 T=2»IMIN 
IP=I^1 

R1=RAT1( I > 

P2=PAT2(I) 

V=VZ(ItJ) 

VJP=VZ(t,JP) 

112 Al (I, J) = -R2*UR(I,J J 
Cin*J)=Pl*UP(TF,J» 

eu I,J)=C1( IpJ)+Al(I ♦J)+CC32 

Cl n,J)=CC2RV 

Fl( I , =CC2*VJP 

FU IvJ 1=F1( I r J)-01{ I , J)-CC32 

P2( T»J)=V-VJP-CC?3 

E2(I ,J) =V''VJP+CC33 

113 XC=CCKC( I»J ) 

XMsMQLPIX ( I, J1 
XN = ^RF^ ,J) 

114 COFFKIpJ MCC 36«P1*(CCNC ( I P» JJ + XC> /(VOLM IX( IPtJ) + XP>/(NRE( IP,JI+XNJ 
CCEF2 ( I » J )=CC36«P2^( XC + CONC (IP, J J )/ ( XM+MOLM I X( IMp J J) /( XN + NRF (TP , JM 
CCEF2(r , J}=CC37*(CCAC (I, JPJ + XC>/(PCIPIX( T, JP>+XMI/(^RF( It JP I + XNI 
C0EF4( Ip J )=CC?7*(XC+C0NCn f JP) I /( XM + POLPI X(I » JM) J /( XN+NRf ( T ♦ JP} ) 

115 COMIKUE 

116 CGMI KUE 

C CALC CIFFUSIDN TERMS 

120 CC 128 K=l,4 
PX=PCLVi7(KJ 

121 CC 127 J=2»JM?N 
JP=J+l 

JP=J-1 

122 CO 126 !=2,IMIn 
IP»I+1 

IP=T-1 

123 XF=PCLFP( I, J,K J 
XP=PLFSCI. J,K) 

>N=N5CCT , J,K) 

124 CIFFUZ ( I, J,K » = MX*(COEFin, Jl«( MLBS( IP, JvK)+XP\«(MOLFR( IP, JpK>~ 

1 -XFI / (NSC (IP, J,K)+XM-CCEF2 ( I,J J*(XP+PLES( IP, J,K ) )*(XF-MOLFR- 

Z (IM,J,KM/{ XN + N5C(I p, J,xn«^CCFP3U , JI* ( P LE S ( ( , JP ,x ) 4XM I » ( PCI FR- 

2 ( I ,JP,K|-XF )/ (hSC( I, JF,K 1 + XN)'C0EF4( I, J )4( XM4PLES( I ,Jm,K) 1 XF- 
Z -PCLFPd ,JP,KI ) /(XN+NSC(I,JP,KMJ 
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126 CC^TI^UF 

127 CCMINUF 
12R CONTINIP 

C UPDATE INPUT MAS? FLUX 

13C CC 135 K=l,5 I 

131 CO 135 T^5fNTUne 

SKUPf I,K ) = S IGKUPI I*K M,5«( S!6( N 1 ) + SrG( r ,2)1 ! 

132 CCNTIKUE ' 

133 CO 134 I=KANN,TPIN 

SKUP( I,K )=S IGKUP( T,K ) S IG(1 , 1 ) ♦ SIG < I ♦ 2) )/SIGOW 

134 CONTIMJE ' 

135 CONTINUe 


C ENTER MAIN LOOP 

2CC CC 2<;5 IJK = l vMN 
CO 2ec K=l,4 

C SET UP CLC VALUE AFPAY 

201 00 2C4 J = 1 ,JLES 


2C2 CO 203 I=1,ILES 

SKClCI I,J ) = SIGK(I, J,K I 
2C3 CONTINUE 
2C4 CONTINUE 

C calculate explicit term S(I,J) 

210 DO 216 J=2,JMIN 
JP=J+1 

211 DO 215 I=2,rMrN 
IP=1 + 1 

IM=I-1 
Rl=RATim 
R2=RATZ( I J 

212 XS = SKCLCn,J) 


213 FARU = -CC5 5’MRl*ISKCLCnP, J )+XS)»UR UP,J )-R2’^(XS ^SKOLOI IM, j U- 

Z *UP(I,J) + CC24(( SKOL D( I,JP)«^XS)#VZ(!,JP>-(XS+SKOL0{I,JM)>«VZ(I,J))> 

EAPT4=0o 

IF (BETAKoECoOo » GC TC 214 

PART4 = TERMUCT, J )#(SKOLC( TP, JI + SKOLO( IM,J)-XS-XSH^TfRmv( I , J|- 
Z *1 SMCLDI I , JP)+SK0LC( I,JM)-XS-XS ) 

214 SU ,J)=CC17«( PARTl + CIFELZI I ,J,K ) + PART4) 

215 CONTINUE 

216 CONTINUE 

C —FIRST HALF OTAU STEP 


220 CO 227 J= 2 ,JMIN 
JP=J+l 

221 CC 224 1 = 2 , IM IN 

222 Cim = S(I,J)+DlCI,Jl#St<CLD(I , JM) -FI ( I , J ) * 5 X 010 ( I , J ) -FI (I, J|- 

Z *SKCLCU,JP) 

0 ENCM=B 1 CT ,J) -A 1 n , J 1 *EI ( IM| 

223 EI( n=Cl( I, J)/OENCM 

FUt) = ICUI)-AlM,J)«FHIM) )/CENOM 

224 CONTINUE 

SKFAH IMIN, J)=FI(IMIN) 

225 CC 226 N= 3 ,|MIN . 



I=IMA)(-N 

SKH4F{ I»J)=FI( U'FT C n«5KH4FC I+l, J ) 

t2f: 

227 CONTINL'F 

C SFCCKC HALF CTAU STFP 

23C DC 238 1=2»IP1N 

CJl 2» = VZ( 1,21 ♦SKOLDt I ,lHE2n ,2)*SKCLOl I t2>-V7n ,3) ♦SKOLDC I ,3 1~ 

Z -CC34«SKHAF(I, 2) 

EJ{ 2) =-V7(I ,3> /{F2(I ,2J-VZ ( T,2 n 

FJ( 2)=( CJ( 2 )-2e>»VZ( I t2)*SKUP( I , K > ) /( B 2U ,?> -VZ ( I , 2U 
231 CC 233 J=3,JMM 
JP=J+1 

2 3? CJ( J)=V7( T , JI^SKCLDd , JM J^^E? (I , J) KCLC( I, J J-VZU, JP >- 
Z «SKOLC( T, JP )-CC3^*SKHAFM , J) 

CFNCP=R2 ( I, J J-VZn, J )*FJ( JM I 

EJ{ J)=-VZ(1 , JP) /DENCt' 

FJ( J) = (DJ( J )-VZ( I , J1 +FJf JP) I /06NOM 
233 CONTIK’UE 

DJ( JPIK) =VZ n , J^'I ^»♦SKCLC n ,JPNIJ + E2 ( T, JMN )*SKOLC( I, JMIN!-' 

Z -VZ( I,JLES »*SKOLD( I , JLE S )-CC34* SKHAF U ,JRIN) 

EJ( JVTM^O, 

FJ( J^IN) = (CJ( VZn, JM!M + vzn,JlESn»FJ<JMNT ) )/ (B2(T, J«IN) 

Z -2c^VZ( T» JLES)-CV7( I, JMIN)+VZ( T ,JLESn«E J( JPNI n 
235 SIGK(I,JPIN,K>=FJ(JHIN) 

238 DC 237 h=?,JMIK 
J=J^AX-^ 

SIGKCI, J,K)=FJ(J)-EJ U»*S IGKd, J + l,K) 

237 CCNTINUE 

238 CCKTINUE 

250 CO 253 J»2,JHTr. 

251 DO 252 I=2,IWTN 

IF (S IGK( I, J,K >oLTeC. > ?IGKU,J,K)=Oo 

252 CC^TI^^F 
25? CONTINUE 
280 CCKTINUE 

25C IF (NREACT,GT,0 > CALI FPCPB 
' CALL BOLNF 
295 CC^TI^UE 

c calcll'atf pepataug CUAMITIES 

3C0 CO 301 J=2,JMIN 
CC 301 I=2,IFIK 
5UM(I,Jl=C. 

3C1 CONTINLE 
302 CC 303 K=1,A 

00 3C3 J=2tJPIK 
CO 203 I = 2,IHIN 
SUHH f J) =SOF( I, J »4S IGKd, J,K ) 

3C3 CCMIMJE 

304 CC 305 J=2,JMIN 
CG 30 5 1=2,1 IN 

SIGKd , J,KSPECVJ = 5IGC I , J I - SLP (1 , J1 

305 CC^TI^UE 

306 CO 3 C9 J=2, JVI N 
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DO 309 I=2,IMIN 

307 CCNCl ( ! f J l=S IGK ( I, J, I l/f/CLWT (1) 

CCNC2 { f »JJ=SIGK{T,J,2)/*'Cl.VT(21 
CCNC3 ( I» J 1= S IGK ( I, J, 3 )/WOLWT( 3) 

CO^'CA( I, J)=STGK( T,J *A I/M0LWT(A» 

COMC^U » j 1 =STGK( I » J,5)/yCLWT(9> 

CO^C( I, J ) = CCNCU I, J ? + CCNC2( I» J I +C0NC2( 1 , J)+CflNC4r I , J)-»-C0NC5{ I »JI 

^oLKixn ♦j)=siG(T ,j)/ccKcn,j) 

3Ce WOLFR( I , J, n=CO^Cl( I , JJ/CCNC (I , JJ 
f'CLFP (I , J,2)=CCNr ?( U J )/CCNC (I, j) 
f'CLFPd ,J,3)=CC^C? ( T , JJ/CCNrCl, JJ 
MOLFR{ I , )=COK'CA( [ T /CCNC( I t J) 

»"ClFPt I»J»5 ) = CCNC5( I, J)/CONC( I, J J 
3C9 CCMIME 

CALC >^0L WFIGHTS CF PARTIAL MIXTURE^ 

310 CO 311 K=1,A 
FX=^'CLHT (K1 
CO 311 J=29JMTN 
CC 311 I=2,IMIN 

» J » K ) ={ RC L R I X ( I 9 J ) “ f'X* f'CL FR ( T , J , K >1/ (1 o-MOL FR ( I , J , K ) } 

- 1 1 LUN T INUE 
312 CALL eCUNG 
RET CRN 
ENC 
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PESETT - ViIEPER PRCC-RAW TC PESET OPERATING PAPAPETFR5 AND MONITOR 
VARIABLES bHEN MAIN PRCDPAf* IS FCPTFANNEC WITH ISD=N 


SUBROUTINE RESET 

1 

IMPLICIT REALP8(A-H,C-n 
C 1 

PEAL*A PVAVG,SAVG 
C 

DIREASICN FP(?3 ,A31 , S TC (23 , A3 J » UR (23 ,43 1 tV7(23,43),- 
Z EYE (23,43 I, ENG( 23,43 I 

CIREKSICN CCLC(23,A3 J,G(23,43I 

DI MEN SIGN P ( 23, 431 ,C (23, 43 I ,SCLD(23,43 ) 

CIMEhSKN PB( 23,43I,CCNPLO( 23,43) 

Cl PEN SIGN SCUM 23 ,43 ) , CENT { 23,43) 

PIWPNSION Q( 23,43) ,ENEV(23 ,43) 

CIMENSICK RAT1(23I,RA'»’2( 23),RAT3( 23) 

CIMFNSICK BE TAM T (23 ,43) , BET AVR( 23, 43 ), B ET AV Z (??, 43 ) 

CIMENSTON G0LD( 23,4?) ,EYCL0(23,43) 

Z VZCLC(23, 43), URCLCl 23,43), ECLC( 23,43) 

01 ME K SICK AI (23) ,CI (23),DI(23),EI (23>,FI (23 l,CJ (43),EJ(43),EJ(43) 
DIMENSION SIGK( 23,43, E) ,SKUP( 23,5) 

Cl MENS I CK CCNCl {23,4 3 >,CCNC2(23,43),CONC3(23,43),CnNC4( 23,43) 

Z CCKC5(Z3,43) 

CIMEKSICN STGKUP<23, 5 ),SMIT IN(4 ) 

CIMEKSICN RVAVG(23 ),SAVG(43,6 ), REYUP{?3) 

dimension T(23,43) ,5IZEX(6) ,SMI TUP(23 ,4) ,GARUP( 23) ,5MIT0W (4) 

C 

PEAl*8 L ,IT,MCLWT(5 ) , MUST AR ,L CR ,L CRSO, S IZER ( 1 2 ) 

REALMS MSTAR,MCLMIX( 23,43) 

REAL*e NSC(?3, 43, 4), M0LRR( 23,43,5 ) 

PEAL* 8 NPE(23 ,43) ,NPR (23,43),GAMVY(?3,43 ), CONG ( 23,43 ) 

PEAL *8 ml ES( 23,43,4) , MCLFUP(2 3,5T , MMIXLP (23 I , MLESUP (23 ,4 ) 
realms MMIXIK,MMIXCW,MLESIN(4),MLES0W(4) 

C 

INTEGER DAY, ITERS(AOCC) ,SIZEI (15) ,SPECIE(fr1 
C 

LOGICAL AK< 

C 

C 

COMMCKAAA/ IMNItIMI N, ILES, IMAXtJMNI, JMIN, JLES,JMAX 
COMMON/Bfl/EYOLO,VZOLD ,URCLD,ECLO 
CCMMCK/CC/PP,SIG,UR,V2,EYE, ENG 

C0MMCN/D0/EC4 ,BC6 , F PR S , ITEST , JTEST , KSTCP, NCOUNT , ERRORl 

C0MW0N/EE/PB,PTIMF,TAL 

COMMCN/FF/CCLC,G 

CCMMCK/GG/FUP,PUFMAX, SIGUP, SUPMAX ,CSCIG, VELUP,VUPMAX,ROL, FPEO 
C0MMCK/Fh/e,0, SCLC,PUP2, SUP? 

CCMMCK/Il/KeUG,KRUK,MCKTF,CAY 

CCMMCK/JJ/A7 ,81 1,612, CI,CI,FI,FI, AJtPJl ,EJ2,CJ,DJ,EJ,FJ,Cr41,CC4? 
CCMKCK/KK/SOUN, CONT 

CfiMMCK/ LL/ EYST AP , RCUT ,LT, EULNO, ft EYNO , STR CNC, SMITNO, PR ANNO, VP EF 
C0MMCN/MM/0,ENEK 
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CC^'>'C^/^^/PST «R,<;GST/iP,HUSTAR,MOLWT, TNCHMP 

CCP^'C^/CC/CTftU,TCYr ,EPPCR*PHI »TK?TA »PS I , PETAM.BET AV * PPT AT ♦ RET AK , OCHT 

CCf'RCN/CC/eKC0EF»CC15»CC17,CC3?,CC?^tCC3 4»CC35.CC?6,CC‘?7 

CORPCK/PP/ATH !TE» f TM AX ♦NPRITE vNFLU , NPR TE f KP » K'L» NTt N ITER *Nn tJT 

COBKON’/S$/TAUENO »NRITE ,^TAPE » AS AVE , KF I PPf 

CCf/RCK/TT/GCLO, EET AMT , E ETA VR » BE TA VZt J START 

CCRRCA/ViV/RATl ,RAT2 

COKMON/>>/RlN*VIAfVCLT»KTUBE»KAKN 

CCBP'CN'/yV/CTOLCtNCT AU.NINOLO.NYCLO 

COEBOK/AB/AETARvTSTAR ,CSTAR » CVST AR t CC3 ft SPECIE 

COMMON/AC /KRE TNPRtGAMRY,BOL*'I XtCCKC 

ccbbca/ac/asc 

CCBBCK/AE/CC2 ,CC8 »CC9 ,CCl 6 ♦ A PROP, NSPECY, ASP EC» MULT IO»NY ,N INt NREACT 
COKMON/AF/$IGK, RCLFR 

CCRMCAyAG/CCA'Cl »CGA'C2,CCNC3,CONCA, COIYC5 
CORPCK/AH/SIGKUF,SKUF 
CCRRCK/AI/PVAVGtSAVG 
CCRBCA/AK/CC26,CC2T 

CCRBCA/AL/MLES»I,GAMIA,GAMCK,TET'P0W,SI7EX 

CCMMCN/AM/MOLFUPtMMlXLPfMLESUP» SM I TUP ,GA RUP » SAU TIN,SPITOWt« 

I PEYA'IN,REYACW,R£YL'P 

COMMON /AN /MRl XI A tMMI XC b *RLESI At ALES CK 
CCMMCA7AC/EYEOW,ENGOW,SIGOWtTPOW 
C 

100 IF (NDTAL*EOoO) RETURN 
CTCLC=DTAU 
MACLO^AIA 
NYOLO=N\ 

PAUSE ‘RESET DTAUt CCHt NTN* NV» G NTRl TE* • 

RETURN 

END 
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VPITIT - KieefR SUeRCUTlNE RITE FOR FMIX* C 6 PROGRA^So DISPLAYS EXTRA ARRAYS 
CCLDt e» D, G, e SCUN IF NRUG^l ~ CCNTAINS WRITF RCUTINHS 
FCR LATER TAPE STORAGE, WRITES CCA’CENTRATI CK' APPAYS# 


SUPPCUTIKE RITE 
C 

IKFLICn REAL<fR(A-H ,C-Z) 

REAL* A VZSTCRf URSTnR,PRSTOR » SGSTCRt TPSTCR »TI HE 
PFAL*4 PVAVGfSAVG 

REAL*4 CASTCR*ClSTCR»C2STCPfC3STCRtC4STCP,C5STOR 
C 

CtPFKSICK Fei23,43 It FF <23»43I,S 1G( 23 , 43 I .UR < 23t A3> t VZ (23 , 43 I t- 
l EYE ( 23,431 .ENGf 23.43) 

CIHEFSICN CCLCt23.43>,C(23,43),CONC( 23.4?) 

CIHEKSICK e(23,43),C(23.43).SCLC(23.43) 

CIHEN’SION S0UN( 23,43) tCCAT( 23,43) ,EYEK(23,43),EMGN(23,43) 

C IREKS ICN VZST0RC23.4 3, lOO >. URSTOR ( 23, 43 ,100) .PRSTORI 23.43.100) 

Z SGSTCR(23,43,10C) ♦TPSTCP(23.43.100) 

CTMENSION T( 23,43) ,71 HE(IOO) .N'TT( 100) 

EIPENSICK CCNCl(23,43),GONC2(23,43),CONC3(23,43),CONC4( 23,43) 

Z C0KC5(23,4?) 

C IRENS ION CASTQRl 23,43,100 ,C1ST0R( 23.43,100) ,C2 STOR ( 23 ,43 ,1 00) 

Z C3STCR(23 ,43,100 ),C4STCP(23,43, 100),C5ST0R{ 23, 43, IOC) 

DIHEKSICK CON (23,43) , R VA VG ( 23 ) , SA VG (43 ,6 ) 

C 

PEAl*fl HUSTAR,HSTAR, LT.HCLWT (5) ,HOLPIX( 23, 431, HLESt 23,43,4 ), SIZE X( f ) 
REAL*e NR E( 23,4 3) ,NPR (23,43) ,GAPHY(23 ,43 ) 

C 

integer day, SPECIE(6 1 

C INTEGER NAHE(14*/4H C,4H E,4H C,4H G,4HS0UN,4H PR,4HTEMP, 

C 14H PR,4E SIG,4H l)R,4H VZ ,4HE YEN, ^HENGA ,4HC0NT/ 

CC 

CATA tOWl ,L0W?/1,2/ 

C 

COHHON/AA/IHM, 1 P I N, I L ES , IM AX , J HN I , JR I N, JLE S, JH A X 
CONWON/CC/PR, SIGtUR ,VZ .EYE ,EKG 
CCPPCN/EE/Pe,PTrPE,TAU 
COHHCN/FF/CCLC.G 

COPMON/GG /PUP ♦ PUP PA X, <IG UP, SL'PM AX ,0 50 G, VELUF ,VUPM AX ,RCL, FP EC 
COHHON/HH/F,C,SCin, FU F2.SUP2 
COPPCK/I I /AeUG,KRUK,HCMH,CAY 

COMMON /KK/SQUN,CCNT 

CCHPCK/LL/EYSTAR,ROUT,LT, EULNO, REYNO , S7RCN0,SPIITN0, PRANNO, VREF 

ccphck/nk/pstar .SGSTAP ,plstap,mclwt , inccpp 

CnPMCN/CC/OTAU,TCYC, ERROR, PHI , THETA ,PSI ,PETAM,PETAV,OETAI , pftAK,CCHI 

COPPCKYPP/NTRIT E, IT P A X , N PP I T E, N FLU , NPROR ,NP , NL, NT, N I te R ,N0 UT 

C0PHCK/S5/1AUENC,NRITE,KTAPE .asave.kfi ppf 

CCPPTN/XX/R IN, VTN,V0UT,NTURE,NAKN 

CCPPCN/ AB/ PST AR,TSTAP,CSTAR ,CVSTAR,CC3fl, SPEC TE 

COMHON/AC/NRE ,NPR ,R A H P> , PQL PI X , CC NC 

CCPPCK/AE/CC2, CC8.CCS ,CC 1 6 ,NPROP, NSPEC Y, A SPEC .MULTI D ,NY , NT N, NOE ACT 

CCMMCN/AG/CCKCl ,CCKC2 , C C NC3 , CCNC4 , CCKC E 

COMMON/AI/RVAVG,SAVG 
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CCf'^»C^/ AL/t'lFS G/>MOW»TEMPOM,SIZFX 

CGHHCN/^0/eVECW,EKGCW,STGCW,TFOV 
C 

2 F0Pf^^T(lEC,T2t*RUK «M2t' ON M2tVM2tV72M 

3 FORHAT(2HC «MNCREKFM SIZES DTREKSICNS DIMENSIONLESS «S*,- 

Z 7X,*VELCCIT1ES'.1AX,»P, RHO» T • , 1 IX, *REE ERENC ES • , 7 X, • CONTROL S' /- 

Z 12, » 1,- 

2 . 

2 # ,) 

A FORMAT(T2,'OTflL' ='lFC10oA,' R IN ='OCF6»2,» EULNO s'lPDlO.A,- 

7 • VELUP='D10,A, • MEAN PUP ='C10«A,' MEAN PSTAP =»D10*4,- 

2 • FFI ='0PF4.2» 

5 FCPMAT(T2,'CCHT ='IFC10,4,' ROUT a»OPF6.2-.' STRCNO= • IPOin.A, - 

1 • ='010<,4,' MAX ='D10.At' MAX SG STAR = » 0X0 . A 

2 ♦ TFETA = '0PFA,2 » 

6 FORMATUZ, 'ERPCF ='lPf;iO.A,’ L ENGTH = * 0PF6. 2 ♦ ' REYNC =MP010.A,- 

• VIN ='C10,A,' SIGLP=»010o A,» MEAN TSTAP ='DIO«A,- 

* ESI =*0PFA,2> 

7 FORMAT! T2, 'DSOIG ='1P010*A,' RCL ='0PF6*A,« PP ANKC= • 1 PCIO .A, - 

2 • VCUT ='CrO,A, • ='D10*A,* MAX MSTAR ='DXO.A,- 

2 • BETAM^' 0FFA,2> 

e FORMAT! 12, 'OETA ='XPP10,A,' TCYC ='0PF6,A,» SM|TNQ= *1 PD10*A 

2 • VREF ='C10«A,» TUP = 'DIO, A, • MEAN CSTAR ='010,A,- 

2 • PETAV=» CPFA.2) 

9 FORMAT! 12t'TAL'EN0='1P010*A, • FPEO =* 0PF6»2 ,A9X,« =• ,1POIO,A,- 
2 • MAX EYSTAR='010,A, ' BE TAK= 'OP FA. 2 /txo 1 , • EYY =*1PD10.A) 

C 

ic FORMAT! 1H+,T25, MNCCMPPESSI PLE STARTUP OF LAMINAR FLOW OF 8LCCD- 
2 IN AN INFINITE TURP WlTF NC-SLIP HALL S, • /T25, 'NO INITIAL PRESSURE- 
2 GRADIENT IS SFECIFIEC. FPCPLEM «1 • / ) ' 

11 FORMAT! lH4,T25t MNCOMPRESSI 8LE STARTUP OF LAMINAR FLOH OF BLOOD- 
2 IN AN INFINITE TUBE W IT F NC-SLfP H ALL $, * /T 25 , • A LINEAR INITIAL- 

7 PRESSURE GRAniEN‘'T TS SPECIFIEC. PRCPLEM «?VI 

12 FORMAT! 1F4, 125, 'REMOVAL OF A DIAPHRAGM PIVTOING AN UPSTREAM HIGH- 
2 PRESSURE RESEPVCIP OF AN ICEAL GAS AN C A ODWNSTR EAM « /T25, »L0 W- 

Z PRESSURE RESERVOIR CF THE SAME GAS IN A CLCSEC-EN'O SHOCK TUBE. PROBLEM 63'/I 

13 E0PMAT!1H4,T25, • INCOMPRESSIBLE LAMINAR TUBE FLOW WITH A COSTNE- 

2 CYCLIC 4 MEAN UPSTREAM PRESSURE , ’/T25 FLOW STARTS AT CYCLIC VALUES. PROBLEM «A* /I 
lA F0RMATnM4,T25,»INCrMPPESSI PLE LAMINAR TUBE FLOW WITH A CCSINE- 
? CYCLIC 4 MFAN upstream PR ESSUR E ,' /T 25 FLO W STARTS AT REST. PRCRLEM «5'/I 

15 FOPMATdH* ,125 , ' INCCMFFESS I BLE LAmtnap TUBE FLOW WITH CONSTANT- 
2 LNIFORM INPLT AND IMTIAUY UM FCRM CCWN THE TUPE.'/) 

16 FORMAT !1H4 ,T25, 'SUnCEN STOPPING OF AN INITIAL PLUG FLOW IN A TUBE WHOSE- 
2 ENTRANCE AND EXIT IS ABRUPTLY 8 LCCKEC. * /T2 5 , 'US ED AS A TEST CF THE PRESSURE- 
2 FIELC RELAXATICK. PROBLEM «7*/J 

17 F0RMAT!'1H4,T25,' INCOMPRESSIBLE LAMINAR TUBE FLOW WITH A CONSTANT COAXUL- 
2 ENTRY AND INITIALLY LNfFCFMLY CCAXIAL CCWN THE TUBE. */T 25 , ' POT H FLUIDS ARF- 

2 INCGMPRESSIPLE AND IDENTICAL EXCEPT FOR VELCCITIFS. PROBLEM #B' /I 
le F0RMAT!1F4,T25,' TNCCMFRESSI ELE LAMINAR TUPE FLOW WITH CONSTANT- 
2 COAXIAL ENTRY AND INITIALLY ZERC FLCH DCKN THE TUBE. » /T 25 , ' BOTH- 
7 FLUIDS ARE IDENTICAL EXCEPT FOR VELOCITIES. NO-SLTP WALLS. PPCBLEM /» 

19 FCRMATI1H4 ,T25 INCCMPPESSl ELE LAMINAR TUPE FLOW WITH CONSTANT- 
2 COAXIAL ENTRY AND INITIALLY 7EPC FLCW CCWN THE TUPE. • /T25 , ' PCTH- 
2 FLUIDS APE IDENTICAL EXCEPT FOR VELOCITIES.. FREE-SLIP WALLS. PROBLEM «1,0'/J 
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20 FOPPfiK 1H4»T25, MNCOf'PPESSIPLE tuFF FI.OW WI^p CCf<;TANT- 

I P-ARAEntlC CCAX1AL ENTRY ANC INTTIAELY PAR&POLIC FKIT VE LCC I TY, • /T?*' »- 
I* FLLID5 APE H2 £ N7 r^ THE CCPE A^O 12 f. K? IN THE ANNULUS INITIALLY. — 
Z CHURCHILL PROBLEM (fll'/I 

21 FrFHAT (1H+ ,T25, ‘CCHPRESSIBLE LAMINAR TL^E FLOW Wl^H CCNSTANT- 

Z COAXIAL ENTRY, IDENTICAL FLU 1 DS , * /T 25 , ' ANC FLUID INITIALLY AT REST,- 
1 PPOPLEH «12M 

22 fCPHAT(lH4,T25, ‘COMPRESS IPLF LAMIAfAP TtPF FLOW WITH CCNSTANT- 

Z CCAXIAL mass FLCW ENTRY, FLUIC INITIALLY AT PEST , »/T 25 ,* CENT ER FLUID- 
Z IS AIR AT 70 CEG F, OUTER FLUID HAS CQ, C2, CC2, H20, ANC N2, ANT T S- 
Z HOT. PRCBLEM «15» /) 


AO FORMAT! 1HC,T5,»GRI0» ,lfx,« PRCPLFR TV PE * , 20X , • LOOP CCNTROLS ‘ , IIX, - 

Z 'WRITE CONTROL S • /T5, * 

Z *» 

A1 FORMAT{T5,'NR=M2,‘ NPRCR=*I?,' INCCHF='fl,' NSPECY='T1,- 

Z • HULTIC^Ml,' MN ='I2,' NY = • j 2 ,7 X , • NTR ITE =' 15 

Z • NRITE = *m 

A2 FORMAT! T5, *NL=' 12,' NFLU ='I2,' NPRCT ='11,' NPF ACT=» Tl 

Z • NFIRPe=’Il,' NCUT='I2,' ITMAX='I5,» NPRITE='I5,- 

Z • NTAPE=*in 

A3 FORMAT! 1 HC, Til,' SPECIE »,5X,AA, A! 6X,AA1I 

4A FORMAT !T11,*CCNC IN ' , F6« A, A ! AX, F6. A ) , lOX , • TPOW ='F7,2,- 

Z AX,'F VECW=* IPOIC.AI 

45 FOPMATITll, 'CONC OUT • , F6. A ♦ A{ AX ,F6. A ) , IPX , • SI GOH= • F7, 5 
Z AX,'ENGCW=* IPOlOoA) 

50 FORMAT! lHC,Tfc,AA,' ARRAY I='T2,' TC '12,' C J = '12,‘ TC • 12, - 

7 • NT»'IA,* NITFR^'IA,' TAU='F10i?> 


51 FORMAT!! F10C13.5 ) 

52 FORMAT! 1HC,T6,AA,' AXIAL AVERAGES J='I2,' TC 'I2I 

53 FCPMAT!1H0,T2,'T0TALS- ', 61 AA, * = ' , IPOl 2« 5,3XU 
C 

ENTRY R ITEA 
C 

C --KPITE INITIAL HEACIKGS 

ICC EYY=EVSTAP/{ VREF^VREF ) 

CETA=rSClG/RCL 

TP=(TP0V«+1« >*TSTAR 

WRITE (6,2) NRUN,MlONTH,OAY 

102 GC TC (1020tl021,102?,lC23,lC2A, 1025,1026, 1027, 1028, 102<), 103,1030, 103!) ,NPROB 

1020 WRITE (6,10) 

CC TC ICA 

1021 WRITE 16,11) 

GC TC ICA 

1022 WRITE (6,12) 

GO TO ICA 

IC23 WRITE (6,13) 

GC TC lOA 
1C2A WRITE (6,1A) 

GO TO ICA 

1025 WRITE (6,15) 

GC TC ICA ' 

1C26 WRITE (6,16) 

GC TC lOA ' 

1C27 WRITE (6,17) 




CC TC 

104 

1C2E 

WRITE 

(6 ,ie 1 


GO TO 

104 

1029 

WRITE 

(6, 19 1 


GC TC 

1C4 

103 

WR ITE 

(6,20 


GC TC 

104 

1C30 

WRITE 

(6,211 


GO TO 

104 

1031 

WR ITE 

(6 ,22) 


IC^ IF (hSPFCV.FOo 1) GC TC 105 

ClIN = c5*( CCNC 1( ?♦ 1 J+CONCK 3»2n 
C2 IN=p5<*(CC^C2C 2» I UCCNC2{2,2n 
C3I S=* 5*(CCNC3( 2,n 4CC^C3(2 ,2 n 
C4IN = ,5'>(CCNC^< 2» l)+C0NrA( 2,2U 
C5I^=.5*(CC^C5(^,l)4CC^C5(2,2H 
C10t'T=, 5*(C0NClt n 

C2CUT=»5« (C0NC2(IMIN» 1)4C0NC2( IPIN,2I ) 

C3CtT = o5* {CC^C3 { )4CCNC3(IKIN»2n 
C^OLT=«5^ICONC^4IIMIN,l )4CCKC^U ) 

C5CUT=«5« {C0NC5(IKiIN, 1 J+CCNC5( IMTN* 211 
IC5 VRITE (6,31 

kRITE (6,41 DTAt',RI^♦FL'L^C,VELUP,P^JP,PST^R,PHI 
HRITE (6,51 CtHl, POUT, 5TPCNC,VUPMAX,PUPM/1X,?GSTAR, THETA 
WRITE (6,61 ERRCR,LT,FfYNC,VIK, SI GUP,TSTAR,PST 
WRITE (6,71 0SQIG,R0L,PRANN0,V01T, SUPPAX ,RSTAR,BETAP 
WRITE (6,81 0ETA,TCYC,SRITND,VREF,TUP,CSTAR,BETAV 
WRITE (6, SI TAUENO,FRECtTUPPAX,EYSTAR,PETAK,EYY 
WRITE (6,601 

WRITE (6,411 WR,WFRrB, INCOMP, N5PECY,RULT ID, KIN, N¥,NTRTTE,NRIT'F 
WP ITE (6,4 21 NL,NFLU,KPRCP ,KPEACT,NFIPPP,NCUT,ITMAX rNPRITF, NT APE 
1050 IF (^SPECYoE0ol 1 GO TC 106 
WRITE (6,431 SPECIE 

WRITF (6,44) C1IN,C2IK,C3IN,C4IK,C5IN,TP,EYECW 
WRITE (6,451 Cl0nT,C2OUT,C30UT,C4nUT,C 50t-T,SI GOW,ENGOH 
106 IF (KTAPEoEC.Ol GC TC 109 
1C6C CO 1067 N=l,100 
lC6l CC 1065 J=l,43 
1C62 DO 1064 1=1,23 
1063 VZSTORI I, J,N)=0« 

URSTORC 1 , J,M=Oc 
PPSTCRU , J,M =0. 

SGSTCR( I, J,N1=0. 

TPSTCPd ,J,M=0. \ 

1C64 CCKTIKLF ! 

1065 CCKTIKUE 

IC66 IF (MTCN)«EOoO) GC TC 107 
WTT(M=0 
TIRE(M = 0» 

1067 CCNTUCE 

1C7 WRITE (121 PUP, PUP-MAX, RCCT, OTAU, FULNC, CCFI 9SIGUPtSUPM AX, LT, CSOIGi 

1 REYNC, PHI, VELUP,VUP«AX,TCVC,RDt, ERRCR, THE TA , VRFF ,FRFO , STPCNOtBETAM,- 

2 eETAV,PETAI ,P ET AK , S M I TKC , V I K , V CUT , R IN , PS^ AP , SGSTAR, EYSTAR, EYY, TAU^HD 
Z NTR ITFtNTAPE,NL,ITMAX,NFLU,KPRI TE , N FR CB , K P E ACT ,NV , N ( N , N S FECY , MULT I D , 
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Z ^PITE,^P,^FPCP,SPECIP»^a■T,^FlPPE♦NSAVf , I^CCPFt ^CNTH, DAY,NRUN 
C 

EKTPY RITFf 
C 

C VRITE DEBUG ARRAYS 

EYY=EYSTAP/(VREFRVRFF> 1 

ICS IF (KRITEoECoOI GC TC ?00 

no IF (NBUGoNE^n GC TC 2C0 1 

C m I.PITE 16,50) NARFm,lCW2, ILES,LOWl,JLES, NT, NITER , tau 
C 112 DO 113 J=1,JLES 


C WRITE (6,51) (QOLO( I, J)f r=2,UE5) 

C 113 CCKTIKUE 

C llA t.RITE (6,50 ^Af.E(2l♦LCW2,UES,LOW2,JLES,^T, NITER, TAU 
C 115 CC 116 J=2,JLES 
C ).P1TE (6,51) (B( I, J), 1=2, TLES) 

C 116 CCMINUE 

C 117 WRITE (6,50) N A Mf ( 3 ) ,tOW2 , U E « , L0H2 , JLE S ,KT,NI TER,T AU 
C lie CC IIS J=^2,JLES 
C URITE (6,51) (On ,J) ,I=2,ILES) 

C 119 CONTINUE 

C 120 bRITE (6,50) NA RE (^ ) , tCH2 , 1 IN, LOW 2, JR IN, NT, N ITER, TAU 
C 121 CO 122 J=2,J«IN 
C WRITE (6,51) (G(I, J), 1=2, IM IN ) 

C 122 CCKTIM’E 

IF ( INCORPaEOol) GC TC AOC 

C 123 WRITE (6,50) NA KE ( 5 ) , LEW 2, IM IN, LOW? , JM IN ,N T,N ITER , TAU 
C 12A 00 125 J=2,JRIN 

C write (6,51) (SOUN(I,J) ,I=2,IRIN) 

C 125 CCNTIKUE 

C RAIN bPTTECUT 

200 CCNTINUE 


201 WRITE (6,50) N A RF (6 ) , L CW2, RES ,LOW 1, JLES, NT, N ITER. TAU 

202 DO 203 J=1,JLE5 
WRITE (6,5H (PP ( I, J ), 1=2, RES) 

2C3 CCNTINLE 

C TRANSF(3R>' VARIABLES 

300 IF ( INCOMP.EOol ) GO TO AGO 
CO 3C3 J=1 , JLES 
3C1 CO 3C2 1 = 1, RES 

EYEN( I, J)=EYE( I,J)/EYY 
ENGNd ,J)=ENG(! ,J)/'EYY 
202 CONTINUE 
303 CONTINUE 

AGO IF (KRITE.ECoO) GC TC 500 

C AOl WRITE (6,50) NAME ( 8 ) ,L0W2 , I H IN, LOW! , JLE S ,NT ,NI TgR ,T AU 
C 402 CC 403 J=1,JLES 

C WRITE (6,51) (PR(I»J) ,T=2,IMIN) 

C 403 CONTINUE 

IF (INCCWPeEOpl ) GC TC 407 

C 40* write (6,50) NA RE( 9 ) , LCW2 ,I N, LOWl , JLES ,NT ,N1T ER ,T AU 
C 405 CC 406 J=1,JLES 

C bPTTE (6,51) (5IG(I ,J),I=2, RTN) ' 

C 406 CONTINUE 

C 407 WRITE (6,50) N AM E MO ) , LOW 2, IMIN ,L0H1 , JLE S ,NT,N1 TER ♦ TAU 



C DO ^CS J=1 ,Jl.ES 

C WRITE 16,51) (UR(t,J I, 1 = 2, 

C AC9 CC^T1^LE 

C ^10 fcRITe (6,50 NAf'Ff in ,lCW2,IMIN,Lmil,J^AX,M,K'ITFR,T^U 
C <tll CC A12 J=1,JMAX 

C (.RUE (6,51) (VTd, J) , 1 = 2, IKIN) 

C A12 CONTINUE 

IF MNCCf'FpEO,! ) GC TC '422 

C 412C liRME (6,5C) N^ f'EH 3) , ICW2 , I^'rN,LCWl , JtFS,M,NITER,TAU 
C 4121 CO 4122 J=1,JLES 

C VPITE (6,51) (E^GM I, J), 1=2, IMIN) 

C 4122 CCMTK'UE 

C 413 WRITE (6,50 NAME { 1 2) , LO W2 , IHIN ,LGW 1 , JLF ? ,NT ,NI TER ,T ftU 
C 414 CC 415 J=1,JLES 

C WRITE (6,51) (EVENC T ,J1,T=2,IPIN) 

C 415 CCWTINUE 

4X6 WRITE (6,50) RE (7 > ,LOW 2 , 1 “ I N, ICW 1 , JLES , NT, N I TER ♦ TAU 

417 DO 4ie J=1,JLES 

WRITE (6,51) (T(I,J 1,1 = 2, IMIN) 

4ie CCKTINUE 

C 422 WRITE (6,50 KA RE ( 14 ) , IC W2 ,I RI N ,LG W2 , J M 6 ,WT,KITEP ,T AU 
C 423 CG 424 J = 2,JMIN 


C WRITE (6, 511 (CCNTU ,J1 ,I=2,it*IM 

C 424 CONTINUE 

C WRITE CONCEWTRATKK ARRAYS 


450 IF (N$PFCY« EO. 1 ) GG TC 500 

451 WRITE (6,50 SPECI E< 1 ) ,L0W2 , IMI N,L0W1 , JLFS,KT,Nl TER ,TAU 

452 CO 453 J=l,JLES 

WRITE (6,51) (C0NC1(I,J) ,1 = 2,1MIN) 

453 CONTINUE 

454 WRITE (6,501 SF FCT E (2 ) ,l CW2 , IMI N, LOWl , JL FS, NT, N I TER , TAU 

455 DO 456 J»1,JLES 

WRITE (6,51) (C0NC2(I,J),I=2,IHIN) 

456 CONTINUE 

IF (N5PECV.EOo2 ) GO TC 466 

457 WRITE (6,50) SP ECT E ( 3 ) , LCW2, IMIN, LOW! , JL ES,NT ,N I T^R , TAU 
456 DC 459 J=1 ,JLES 

WRITE (6,51) (CCNC3(I , J) ,I=2,IMIN) 

459 CONTINUE 

IF (NSPECT»EC. 3) GC TC 466 

460 WRITE (6,50) SPEC I E ( 4 ) ,L0W2 , 1 MI N, LOWl , JLE S ,NT ,NI TFR , TAU 

461 CC 462 J=1,JLES 

WRITE (6,51) (CCNCAd, J) ,I = 2,IMIN) 

462 CCNTINUE 

IF (NSPECYoEO.A ) GC TC 466 

463 WRITE (6,50 SPECI E ( 5 ) , L CW2 , IMI N , LCWl , JL ES , NT,N ITER ,T AU 

464 CC 465 J=1,JLES 

WRITE (6,51) (CCNC5n,J),I-=2,lMIN) 

465 CONTINUE 

466 WRITE (6,50 S» EC I E ( 6 ) , L0W2 , I MI N , LCWl , JLES ,NT,NI TER ,T AU 

467 CO 468 J = 1 , JLES 

WRITE (6,51) (CCN'Cn ,J) ,I=2,IMIN) 

468 CCNTINUE 

C CCMRLTE CONCENTBATICN AVERAGES 



470 IF (NSPECYoFOoll GO TG 500 
^71 CO J = 

JP=J+1 

472 CC 474 1=2, TMIN 
IP=I+l 

47 3 RVfiVGI n = o25*{ VZn , J) + V Z U P , JI +VZ ( I,JPI*VZUP ,JPri*0?CTG 

474 CCMINUF 

GC TC (5CC ,478,477,476 ,475 > ,^SPECY 

475 K=5 



CALL 

S IRFLE 

(CCKC5, J,K) 

476 

K=4 

CAIL 

SIMPLE 

(CONC4, J,K) 

477 

K=3 

call 

SI PFLE 

(CCWC3, J,K) 

478 

K = 2 
CALL 

SIMPLE 

(C0KC2, J,K J 

479 

K=1 

CALL 

SIMPLE 

(CONCl, J,K » 

480 

K=6 

CALL 

SI RFIE 

(CCWC,J,K) 


481 CONTINUF 

482 SUM=0« 

SLP2 = C« 

SUM3=0« 

SUl^4=0, 

?LH5 = C® 

SUM6=C, 

483 CC 485 J = 2,JPIK' 

484 SLPI=-Sl’PUS4VG( J,l) 

SUW2=SUM2 + SAVO( J, 21 
SUP3=Sl)f'3+5AVG{ J, 3 » 

S U P4 = S C' P4 S A VG U , 4 ) 

SUP5=SlJf'5 + SAVG( J, 51 
SL-P6 = SU^6-»SAVG< J,6) 

485 CCMIKIF 

486 SUN1=SUP1/JMNT 
SOP2=SUF2/ JPM 
SUP3=SUP3/JPM 
SUP4=SUP4/JMNI 
<UP5=SUP5/ JPNI 
5U^'6=SU^'6/J^'Nr 

WRITE RAOIAL AVERAGE CONCE NTRATI CK ARRAYS 

490 VRITE (6,521 S P EC T E U ) , LCW2, JM IN 

WRITE (6,51J ( SAVG( J,1 1 , J = 2 , JRIM 

491 WRITE (6,52J SPEC T E ( 2 I , LQW2, N 
WRITE (6,5M (SAVG( J ,2 ) , J = 2 , JPIK) 

IF (NSPECY^EO,? ) GC TC 495 

492 WRITF (6,52) SP ECIE( 3 I ,L0W2, JRl N 
WRITE (6,51) ( SAVG( J,3 ) ,J=2 ,JWIK) • 

IF (NSPECYoE0o3 ) GO TC 495 

493 WRITE (6,52) SP EC I E ( 4 1 , LCW2, JMI N 
WRITE (6,51) ISAVG( j,4) ,J=2,JPIN) 

IF (NSPECYoF0e4 ) GC TC 495 

494 WRITE (6,52) S PEC I E ( S ) , LCW 2, JM I N 



WRITE (6*51} ( SAVG( J,5J , J = ?, JRI M 

495 WRITE I6,52J S PECI E( 6 I » LCW2, JMIN 
WRITE (6,51) (SeVG( J,6) ,J=2 ,JMIM 

496 WRITE (6,53) SPFCI E ( 1 ) , SUM 1 , SPECl E ( 2 ) , SUR2 , SPEC I P (3 ) ,SUM3 
Z SPECTE(4) ,SUM4, SPECIE (S ), SUM5, SPECIE! 6), SUM6 

C STCPE VALUES FCR TAPING ' 

500 IF (NTAPE^ECcO) GO TO 6CC i 

IF (M,EC*0) GO TC 60C 1 

501 DC 5C7 J=1,JLES 

502 CC 506 l=lv ILES 

503 VZSTORd, J,AT)=VZ( I, J » 

URSTOR( I , J,NT) =IR( I , J) 

PRSTCPI I, J,NT )*PR( I,J J 

504 IF (INCCPF.EOol) C-C TC 5050 

505 SGSTGRU , J,NTJ = STG( I , J) 

TPSTCR(I,J,NT)=Tn,J) 

5050 IF (NSPECYolTo2 ) GC TC 506 
CASTCRJ I V J,NT) =CCNC (I ,J) 

ClSTOPn,J,NT) = CONCl( I, J) 

C2STCR(T,J,KT)=CCNC2( I, J) 

5051 IF (NSPECY.E0,2 > GC TC 506 
C3STCRn, J,NT ) = C0NC3( I, J> 

5C52 IF (KSPECV.FQ„3 ) GC TC 506 
C4ST0R( I , J,NT)=C0NC4( I , J) 

*5053 IF (NSPECY,E0o4 ) GC TC 506 
C5STCP(I , J,MJ =CCNC5( I, J) 

506 CONTINUE 

507 CONTINUE 

TI FE(NT)=TAU 
NTT(NT )=NT 

510 WRITE (121 NTT (NT), TIRE (NT) 

511 WRITE (12) MVZSTCR(T,J,NT) ,1=1 ,ILFS) , J=l, JLFS) 

WRITE (12) ((URSTOR( I,J,NT) ,1 = 1 ,UES), J=1 ,JLE5) 

WRITE (12) ( (PRSTCP( I, J,NT ), 1^1, ILES ), J=1,JLES) 

512 IF { INCOMP, E0« 1) GC TC 514 

513 WRITE (12) ((SGSTnR(I,J,NT) ,I = 1,ILES),J=1,JLES) 

WRITE (12> HTP5T0R(I,J,NT),I=1,ILFS), J=I,JLES)* 

514 IF (NSPECYaEOol ) GG TC 6C0 

WRITE (12 ) ((CASTOR! I, J,NT), I = l,lLES)t J=l, JLES) 

WRITE (12) UCl STCPd ,J,NT) ,1 = 1 , ILES )tJ=1,JLFS) 

WRITE <12 1 ((C2STCRd , J , N T ) , I = 1 ,I LFS ) , J= 1 , JL ES ) 

515 IF CNSPECY.EC,? ) GC TC 600 

WRITE (12) ((C3STrR(I,J,NT),I=l,UES),J = l,JLES) 

516 IF {NSPECY*EO<,3 ) GO TO 600 

WRITE (12) ((C4STCP(I,J,NTI,I=1,ILFS),J=1,JLES) 

517 IF ( NSPECY,FC,4) GO TC 600 

WRITE (12) MC5STORd,J,NT),I = l,ILES)tJ=l,JLES) 

600 RETURN 
END 
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- telEBER SUPRCUTINE STAPLE FOR USING SIMPSONS 1/3RD AND •a/PTHS 
RULE TG calculate RADIUS AVERAGE CCKCEKTRAT I ON FLUXES 

SUEROLTINE SIMPLE (CCA*J,K) 

REALMS CCN 

C THEN SION RVAVG< 23 ) , PCI KT ( 2 31 tCCN ( 23 1 A3 ) t S AVG (43 »6 ) 

COMMON/AA/IMM, IMIN, ICES * IH AX ♦ JMN I ♦ JM T^, JLE St JM AX 
COMMON /A I /R VA VG • SA VG 
C 

100 CC 101 I=2.IMIN 

POINT (M =RVAVG( I )« (CCA (I , J1 -fCCN (1*1 , J1 1 

101 continue 

SUM=0, 

102 IF (MOD( ILES*2I .NE« C> GC TO 103 
IFIPST=2 

GC TC IC4 

103 SUM«=4375<{ 3o*P0INT(2)->3,«PCINT(3)+PCrNT(4) ) 

IFIRST=5 

1C4 CO 105 I»IFIRST,IMM ,2 

S=(PQINT( I-1)+4»#P0I NT(I l + PCrNTU + ll 1 /3, 

SUM=SUM+S 
1C5 CONTINUE 
106 <AVG( JtK)=SUM/IMM 
PETURN 
END 
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